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Nota legal 

El producto descrito en este manual, asi como los diseflados para ser utilizados con el, 
estin sujetos a desarroUo y mejoras continuas. 

Amstrad suministra este manual de forma gratuita; su objetivo no es sino servir de ayuda 
al usuario en la utilizaci6n del producto. Toda la informaci6n t&nica relativa al producto 
y su utilizacidn incluida en este manual es proporcionada por Amstrad de buena fe. 

Amstrad no ofrece garantia alguna, ni expresa ni implicita, incluyendo las garantias impli- 
dtas de comerciabilidad y adecuacidn a nn prop6sito concrete, aunque sin limitarse a ^- 
tas. Amstrad no sedi en ningun caso responsable de ningun dano o perdida a que pueda 
dar lugar el use de la mformaci6n suministrada u omitida. 

Cabe la posibilidad de que este manual contenga errores tecnicos o tipogrdficos. La infor- 
maci6n incluida en este manual esta sujeta a revision; las modificaciones seran incorpora- 
das en las siguientes ediciones. Amstrad, por otra parte, puede mejorar o cambiar en cual- 
quier momento los productos y los programas descritos en este manual, pero no comuni- 
card tales mejoras o cambios a los usuarios. 

Los productos descritos en este manual no ban sido diseflados para su utilizaci6n en fun- 
dones que puedan ser, directa o indirectamente, criticas para la vida de las personas, ni 
tampoco en situaciones en las que un fallo o un error pueda afectar a la integridad fisica 
de las personas. Amstrad no autoriza tal utilizaci6n de sus productos. 

Antes de usar el producto descrito en este manual, usted debe leer detenidamente estas 
instrucciones, asi como el resto del material impreso suministrado, incluida la tarjeta de 
garantia. 



kiqxHtante 

Los terminos e instrucciones expresados en la tarjeta de garantia suministrada con este 
producto deben ser observados estrictamente. 



Exchisidn de responsabilidad por perjuicios indirectos 

En cnalquier caso, Amstrad no serd responsable de ninguna perdida o dano resultante de 
la atilizaci6n de este manual o del producto en el descrito, o de los productos usados con 
fate, o de la inf ormaci6n publicada en este manual, o de la omisi6n de informacidn. Esta 
cxclusi6n se refiere en particular (aunque sin limitarse a eUas) a perdidas econ6micas y 
financieras; danos al producto y a los equipos perifMcos; y perdidas de uso, productivi- 
dad y tiempo. 



Ninguna parte de este documento pretende restringir los derechos de los consumidores 
contra lo dispuesto por las leyes. 



La correspondencia relacionada con el manual y el producto debe ser dirigida a: 

DeparUimento de Servido a C3ientes 

Amstrad Espana, S.A. Amstrad pic 

Ronda de Valdecarrizo, s/n 169 Kings Road 

PoUgono Industrial de Tres Cantos Brentwood 

28760 Colmenar Viejo Essex CM14 4EF 

Madrid Reino Unido 



©Copyright 1990, Amstrad pic y Amstrad Espafla, S.A. 
Reservados todos los derechos. 



El contenido de este manual y los productos en el descritos no pueden ser adaptados ni 
reproducidos, ni total ni parcialmente, salvo con el permiso escrito de Amstrad pic. 



Publicado por Amstrad pic. 
Compilado por Roland Perry 



CP/M y CP/M Plus son marcas comerciales de Digital Research Inc. 

Z80 es marca comercial de Zilog Inc. 

El nombre y el logotipo de AMSTRAD son marca comercial registrada por Amstrad pic. 

AMSDOS, CPC6128, CPC664, CPC464, 6128, 464, 6128 Plus y 464 Plus son marcas co- 
merciales de Amstrad pic. 

Queda estrictamente prohibido utilizar el nombre o el logotipo de AMSTRAD sin la debi- 
da autorizaci6n. 



Importante 



Por favor, lea las siguientes . . . 

Notas de instalacion 

1 . Conecte el cable de alimentaci6n a una clavija siguiendo para ello las instmcciones que 
se dan en la Parte 1 del 'Curso de Introduccidn'. 

2. No intente conectar este equipo a una red de distribuci6n de energfa el6ctrica que no 
sea de 220-240 V c.a., 50 Hz. 

3. El mantenimiento que pueda hacer el usuario no requiere en ningiin caso acceder al 
interior de la carcasa. Asi pues, no abra nunca el equipo. Confie todas las reparaciones 
y operaciones de mantenimiento a personal cualificado. 

4. Para evitar la fatiga visual, ponga el monitor lo mds alejado posible del teclado y tra- 
baje con luz ambiente adecuada. Deje el control de brillo del monitor lo mds bajo 
posible. 

5. No obstruya ni cubra los orificios de ventilaci6n. 

6. No utilice ni almacene el equipo a temperaturas demasiado altas ni demasiado bajas, 
ni en lugares hiimedos ni polvorientos. 

7. No intente introducir o extraer el cartucho estando el ordenador encendido. 

8. No intente utilizar el ordenador sin haber instalado im cartucho. 



Compatibilidad 



El 464 Plus y el 6128 Plus pueden ser utilizados con la mayor parte de los programas y 
periftricos diseilados para los modelos CPC464, CPC664 y CPC6128 antiguos. Aunque 
se ha hecho lo posible por mantener la compatibUidad, es inevitable que alguno de los 



programas escritos para el CPC464 y el CPC6128 no funcione correctamente con el 464 
Plus y el 6128 Plus. Por lo tanto, antes de adquirir programas o perif6ricos disenados para 
los modelos antiguos, consulte con su distribuidor para asegurarse de que son apropiados 
para el 464 Plus o el 6128 Plus. 

Nota. Los conectores para periKrlcos de expansi6n, impresoras y segundas unidades de 
disco tienen la misma funcidn que en los modelos antiguos, pero pueden ser diferentes. 

Notas de operacion con discos (6128) 

(No se preocupe si al principio le resulta extrana la terminologia utilizada en esta seccidn; 
el significado de estas advertencias irA quedando mds claro segiin avance en la lectura de 
este manual.) 

1 . No encienda ni apague el sistema mientras haya un disco en la unidad, so pena de per- 
der la informaci6n en el grabada. 

2. Haga copias de todos los discos que contengan datos o programas valiosos. En particu- 
lar, copie el disco de CP/M que se suministra con el 6128, pues si se deteriorase acci- 
dentalmente su sustitucidn seria costosa. 

3. Para evitar el riesgo de borrar accidentalmente los discos de CP/M, cerci6rese de que 
los orificios de protecci6n contra escritura de los discos estdn abiertos. 

4. Con el fin de que la informacidn sea lo mds fiable posible, la secci6n de la unidad de 
disco del ordenador no debe ser colocada directamente frente al monitor, sino a la de- 
recha de este. Aleje el ordenador de cualquier fuente de interferencias el&tricas. 

5. No toque la superficie de los discos. 

6. No extraiga el disco mientras el ordenador no haya terminado de leer o escribir en el. 

7. Recuerde que al inicializar los discos se borra su contenido anterior. 

8. Mantenga las unidades de disco y los discos alejados de campos magnfticos. 

9. El acuerdo de licencia para el sistema operative CP/M (que estd cbdificado mediante 
un numero de serie grabado en los discos) permite su utilizaci6n en un solo ordenador. 
Esto significa, en particular, que al usuario le esta prohibido ceder a otras personas 
copias de su CP/M. Lea atentamente el 'Contrato de licencia de todo el software des- 
crito en este manual' (Apendice 1 de este manual). 
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Capitulo 1 

Curso de introduccion 



Parte 1: Instalacion 



El 464/6128 puede ser instalado con: 

1. El monitor monocromatico Amstrad MM12. 

2. El monitor de color Amstrad CM14. 



Preparacion del cable de alimentacion 

El 464/6128 es alimentado por el monitor, el cual se conecta a la red de 220-240 V c.a., 
50 Hz. 

Instale la clavija adecuada en el extremo del cable de alimentaci6n del monitor (MM12 
o CM14). Es necesario proteger el equipo insertando en la linea de alimentacidn un fusible 
de 5 amperios, bien en la clavija, bien en el z6calo. [Aunque la clavija sea de las que vie- 
nen preparadas para un fusible de 13 amperios (tipo BS1363, utilizado en el Reino Unido), 
el fusible que se debe usar es el de 5 amperios.] 



ADVERTENCIA 

Este aparato debe ser conectado a un z6calo de red que disponga de toma de tierra. 
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Importante 

Los hilos del cable de alimentaci6n tienen unos colores que se ajustan al siguiente c6digo: 

Verde y amarillo Tierra 
Azul Neutro 

Marr6n Fase 

Puesto que estos colores pueden no corresponder con los que identifican los terminales 
del z6calo, haga lo siguiente: 

• El Mo de color verde y amarillo debe ser conectado al terminal del z6calo marcado con 
la letra 'E' o con el simbolo de 'tierra', o identificado por los colores verde/amarillo 
o verde. 

• El hilo de color azul debe ser conectado al terminal del z6calo marcado con la letra 'N' 
o identificado por el color negro. 

• El hilo de color marr6n debe ser conectado al terminal del z6calo marcado con la letra 
'L' o identificado por el color rojo. 

Desenchufe el monitor de la red cuendo no lo est6 usando. 

No intente extraer ningiin tomillo ni abrir la carcasa del monitor ni del ordenador. Lea 
y respete las advertencias inscritas en las etiquetas de caracteristicas, que estdn situadas 
en el panel posterior del monitor y en la cara inferior del ordenador. 



ADVERTENCIA 

Alta tensidn en el interior. No extraiga ningun tomillo. 



Instalacion del 464/6128 

Ponga el ordenador sobre una superficie plana. 

Importante. Cuando elija un lugar para instalar el ordenador, asegurese de que: 

— dispone de una toma de corriente cercana y de facil acceso; 

— el equipo no va a quedar pr6ximo a ningun grifo ni fuente de calor, ni expuesto a la 
luz solar directa. El calor, el agua y los rayos del sol pueden daiiar el ordenador y des- 
truir los datos. 



1/2 Curse de introduccion 




iiffl 




■ v-^ - r-rv^ 



El proceso de instalacion consiste en lo siguiente: 

1 . Cercidrese de que el monitor no esta conectado a la red. 

2. De los dos cables que salen de la cara frontal del monitor, conecte el que termina en 
la clavija mis grande (DIN de 8 patiUas) en el z6calo correspondiente (DIN de 8 pati- 
llas) situado en el panel posterior del ordenador. 

3. Conecte el otro cable (que termina en la clavija m^ pequefla, 5 V c.c.) en el z6calo 
de alimentaci6n que se encuentra en el panel posterior del ordenador. 




Cartucho de juegos 



Etapa 4. Inserci6ii del cartncho 
(con el interraptor de alimentaddo apagado). 
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4. Introduzca el cartucho suministrado en el zocalo situado en el panel izquierdo del orde- 
nador. Importante: observe que no es posible introducir ni extraer el cartucho si el inte- 
rruptor de alimentaci6n esta apagado. 

5. Conecte el cable de alimentaci6n del monitor en una toma de corriente de red. 

6. Encienda el monitor pulsando el interruptor de alimentacion, situado en la cara fron- 
tal, de modo que quede hacia dentro. (Si esta hacia fuera, la tensi6n de red no Uega 
al monitor.) 

7. Encienda el ordenador haciendo deslizar hacia el frente el interruptor de alimentacion, 
que se encuentra en el panel izquierdo. (Empujdndolo hacia atrds se apaga el ordenador.) 



Interruptor de alimentaci6n WlB^^ C 




Etapa 7. Encendido del ordenador. 

Si todo ha ido bien, la pantalla del monitor mostrara lo siguiente: 



Anstrad Microconputer (U4> 


11985 Amstrad pic 

and Locomotive Software Ltd, 


fl Amstrad BASIC 
la Burn in' Rubbe;; 







Para evitar la fatiga visual excesiva, ajuste los mandos de brillo "o- y de contraste 9 que 
se encuentran en el panel frontal del monitor. Junto a ellos esta lambien el mando de volu- 
men -<a . que controla el volumen de los altavoces incorporados en el equipo. 
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Seleccion de BASIC o del juego de 
desmostracion 

El cartucho suministrado con el 464/6128 contiene AMSTRAD BASIC y un 'juego de 
desmostracion'. 

Si desea activar AMSTRAD BASIC, pulse la tecla [f1] (situada a la derecha del teclado) 
antes de que p£isen 30 segundos tras encender el ordenador. 

Si pulsa [f2] (o si no pulsa [f 11 dentro de los 30 segundos), el ordenador pondra en marcha 
el juego de demostracion. 

La forma de usar AMSTRAD BASIC esta descrita con todo detalle en capitulos posterio- 
res de este manual. 

Nota. Para activar el juego de demostracion cuando ya esta funcionando AMSTRAD 
BASIC, escriba la orden I GAME y pulse la tecla [INTRO]. Para obtener el signo ' I ', pul- 
se una de las teclas [MAYS] y, sin soltarla, pulse tambien la marcada con ' 1 ' y '@'. 
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Parte 2: Conexion de los 



En esta secci6n vamos a explicar c6mo se conecta al sistema 464/6128 los diversos periferi- 
cos (equipo adicional). La forma de usar los perifericos estd explicada en otros lugares 
del manual. El Capitulo 6, Parte 10, contiene un diagrama que identifica los diversos 
z6calos. 

Importante: no conecte ni desconecte ningun perifMco con el ordenador encendido. 



Joystick / panel de control (PD-1) 

Con el 464/6128 se entrega un panel de control. Un joystick o un segundo panel de control 
es algo que usted puede desear adquirir si va a usar su 464/6128 con programas de juegos 
disenados para aprovechar un dispositivo de control adicional. 

Conecte el primer joystick o panel de control en el zocalo de joystick mas cercano al frente 
del ordenador (en el lateral izquierdo). Si usa un segundo joystick o panel de control, co- 
n^ctelo en el zocalo de joystick mds alejado del frente del ordenador. 

La forma de escribir programas que puedan ser controlados por los joysticks esta descrita 
en capitulos posteriores de este manual. 



Lapiz optico / pistola optica 

Si dispone de programas de juegos disenados para su uso con una pistola optica, o de 
cualquier programa que f undone que un Mpiz optico, quiza desee adquirir uno de estos 
dispositivos. 

Conecte la pistola optica o el lapiz 6ptico en el z6calo AUX, situado en el psmel izquierdo 
del ordenador. 

Estos dispositivos s61o funcionjm con programas escritos especificamente para ellos (dis- 
ponibles en cinta, disco y cartucho). 
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Joystick analogico 



Algunos programas de juegos pueden funcionar con un joystick anal6gico. Se trata de un 
disposivo que permite controlar el juego de forma mis sofisticada que un joystick normal. 

Conecte el joystick analdgico en el z6calo correspondiente, situado en el panel izquierdo 
del ordenador. 

El joystick analogico solo funciona con programas escritos especificamente para €1 (nor- 
majmente s61o disponibles en cartucho). 



Impresora 



El 464/6128 puede ser conectado a cualquier impresora que tenga un interfaz paralelo de 
tipo Centronics. Para realizar la conexi6n se necesita un cable adecuado, posiblemente su- 
ministrado con la impresora. 

Conecte la clavija de 25 patillas en el zocalo de impresora, situado en el panel posterior 

del ordenador. Luego conecte el otro extremo del cable (clavija de 36 patillas) en el z6calo 

de la impresora. 

Si la impresora tiene abrazaderas de seguridad, fijelas en las ranuras que hay en los latera- 

les del conector. 

NO conecte la clavija de 36 patillas en el zocalo Centronics que hay en el panel posterior 

del 6128. Ese zocalo esta destinado exclusivamente a la conexion de una segunda unidad 

de disco. 

La forma de usar la impresora estd descrita en capitulos posteriores de este manual. 
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Amplificador y altavoces externos 

El 464/6128 puede ser conectado a un sistema amplificador y altavoces estereofonicos. El 
cable de entrada al amplificador debe terminal en una clavija estereo de 3,5 mm, la cud 
se introduce en el zocalo STEREO situado en el panel posterior del ordenador. 

El 464/6128 entrega a la salida una seflal de nivel constante; asi pues, el volumen debe 
ser regulado con los mandos del sunplificador. 



Dispositivos de ampliacion 

El 464/6128 dispone de un z6c£ilo de ampliacion de 50 patillas, en el que se puede conectar 
dispositivos tales como interfaces serie, modems, etc. Las instrucciones de instalacion y 
uso seran suministradas con cada dispositive. 



Segunda unidad de disco (solo 6128} 

El 6128 tiene un zocalo en el que se puede conectar la segimda unidad de disco. Las ins- 
trucciones de instalacion y uso seran suministradas con la unidad de disco. 
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Parte 3: En cuanto a los discos y cassettes 



La memoria del 464/6128 solo puede "recordar" los datos mientras el ordenador esta en- 
cendido; en terminologia informatica, es un medio de almacenamiento "volatil". Para 
que la informacion no se pierda cuando se apague la maquina, es necesario grabar los pro- 
gramas y los datos en un medio "no volatil", tal como la cinta o el disco. 



Controles del magnetofono (solo 464) 

El magnetofono se encuentra a la derecha del teclado. En esencia, los componentes meca- 
nicos de este mecanismo son los mismos que los de un magnetofono de audio, con la dife- 
rencia de que los componentes electr6nicos que controlan las seflales estdn especificamen- 
te diseiiados para ser utilizados con los sistemas de almacenamiento de datos del orde- 
nador. 




Forma apropiada de introdudr un cassette en el magnetbfono 
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Analogamente, el manejo del teclado auxiliar del magnet6fono es el mismo que para la 
mayor parte de los magnetofonos de audio: 




RECORD PLAV 



Contr<des del magnet6fono del 464 

Tenga en cuenta que estas teclas deben ser pulsadas con bastante mas energia que las del 
teclado principal. 

REC funciona simultaneamente con PLAY para grabar datos cuando el programa lo indi- 
ca. No puede ser activada a menos que se haya introducido en la unidad un cassette con 
la lengiieta de protecci6n intacta y se haya cerrado la puerta. Para activar la funcidn de 
grabaci6n, pulse la tecla REC y, sin soltarla, pulse PLAY. El ordenador escribird los da- 
tos en la cinta cuando el programa que est6 en la memoria en ese momento le pida que 
lo haga (o cuando se de la orden SAVE directamente desde el teclado). 

PLAY reproduce la cinta para cargar (LOAD) o ejecutar (RUN) un programa desde el 
magnet6fono. El ordenador leerd la informacion de la cinta cuando el programa que este 
en la memoria en ese momento le pida que lo haga (o cuando se de una orden directamente 
desde el teclado). Las teclas REC y PLAY son liberadas autom^ticamente por un mecanis- 
mo cuando la cinta se acaba. 

REW rebobina la cinta de derecha a izquierda. No hay cancelacidn mecanica de esta fun- 
cion cuando la cinta Uega a su fin; por lo tanto, no deje la mdquina funcionando en modo 
de rebobinado, ya que podn'a producirse un sobrecalentamiento del motor. 

F.F. hace avanzar la cinta a gran velocidad de izquierda a derecha. No hay cancelacion 
mecanica de esta funci6n cuado la cinta llega a su fin; por lo tanto, no deje la mdquina 
funcionando en modo de avance rdpido, ya que podria producirse un sobrecalentamiento 
del motor. 

STOP/EJECT interrmnpe cualquier operacion con el magnetofono y devuelve a su estado 
original todas las teclas de este. Si pulsamos esta tecla por segunda vez, la puerta del mag- 
net6fono se abrira para que podamos introducir o extraer el cassette. Un cassette no pue- 
de ser extraido hasta que ha cesado la operacion que esti efectuando la unidad en ese 
momento. 
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PAUSE produce una pausa mecanica que actua en combinaci6n con las teclas PLAY o 
REC y PLAY. No debe ser utilizada durante las operaciones de lectura o escritura de da- 
tos, ya que podria originar un error. En el software del 464, todas las pausas durante las 
operaciones de reproduccidn y grabacidn son manejadas por instrucciones intemas, con 
lo que la fadlidad de pausa mecdnica casi no se utiliza. 



Proteccion contra escritura 




Para prevenir el borrado accidental de los datos que se quiere mantener en una cinta, los 
cassettes estandar disponen de una «pestafla» de protecci6n contra escritura. Esta pestafta 
puede ser retirada rompiendola con un destomillador o cualquier otro instrumento. 
Cuando se introduce en la unidad un cassette protegido contra escritura (sin pestafla), no 
se puede accionar la tecla REC. 

La protecci6n contra escritura afecta individualmente a cada cara de la cinta; por lo tanto, 

para proteger ambas caras de la cinta, se debe romper ambas pestaiias del cassette. Si mds 

tarde decide volver a grabar en la misma cinta, puede cubrir el orificio con cinta auto- 

adhesiva. 

Para proteger programas mediante software exiten diversas tecnicas para las que se utili- 

zan el sistema operativo del 464. 
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Introduccion de un cassette 



La cinta debe estar completamente rebobinada (en la bobina de la izquierda); de lo contra- 
rio, pulse la tecla REW para que la rebobine el magnetofono. Si la cinta se enrroUa acci- 
dentalmente en la apertura de la parte frontal del magnet6fono, tendra usted que rebobi- 
narla a mano antes de introducir el cassette en el magnetofono, y es probable que se haya 
per dido su contenido. 

Tenga en cuenta que, aunque en los sistemas de audio se puede utilizar cintas cuya superfi- 
cie ha sufrido diversos tipos de daflos (pliegues, etc.), no se puede maltratar las grabacio- 
nes de datos de ordenador de la misma manera y esperar que sigan funcionando de forma 
fiable. 

Por ejemplo, si usted pilla accidentalmente parte de la cinta con la puerta del magnetofo- 
no y, no obstante, todavia puede cargar o ejecutar el programa almacenado en ella, lo 
que debe hacer es volver a grabar inmediatamente el programa en una cinta nueva (mien- 
tras el programa esta en la memoria del 464) y deshacerse de la cinta daiiada antes de que 
sienta la tentaci6n de intentar utilizarla de nuevo. 



Insercion de los discos (solo 6128) 



Se pueden utilizar las dos caras del disco, aunque no simultaneamente. La forma correcta 
de insertar los discos es con la etiqueta hacia fuera (visible) y con la cara que se va a usar 
hacia arriba: 
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Proteccion contra escritura 

En el extremo posterior izquierdo de cada cara del disco se puede ver una flecha que sena- 
la un pequeno orificio obturado: es el orificio de 'protecci6n contra escritura', cuya mi- 
sion es evitar el borrado accidental del contenido del disco: 



Orificio de proteccion 
contra escritura 




Cuando el orificio esta cerrado, el ordenador puede 'escribir' en el disco. En cambio, si 
el orificio estd abierto, el disco esta protegido contra la escritura, impidiendo el borrado 
accidental de progrjimas o datos valiosos. 

Los diver SOS fabricantes utilizan diferentes mecanismos de apertura y cierre del orificio. 
En un disquete compacto tipico el funcionamiento es como sigue: 

Para abrir el orificio, haga deslizar el pequeno obturador situado en la esquina izquierda 
del disco: 



Orificio de protecci6n 
contra escritura (ABIERTO) 



Obturador n °j 



ABIERTO 




Obturador (T | 
CERRADO"^ 



Protecci6n activada 
PROTEGIDO 




Proteccion desactivada 
NO PROTEGIDO 
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Para cerrar el orificio, haga deslizar el obturador en sentido contrario. 

En algunos discos compactos el mecanismo consiste en una pequeiia palanca de pl^tico 
situada en una ranura que tienen en la esquina izquierda: 




I it 



Orificio de protecci6n 

contra escritura 

<CERRADO) 



Para abrir el orificio en los discos de este tipo, desplace la palanca hacia el centre del dis- 
co, ayuddndose con la punta de un boligrafo u objeto similar: 



Desplace la palanca 

hacia el centra 

del disco 





Orificio de pratecci6n 

contra escritura 

<ABIERTO) 



Observe que, cualquiera que sea el mecanismo de obturaci6n, el efecto es siempre el mis- 
mo: el disco queda protegido cuando el orificio esti abierto. 
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iMPORTANTE 



Cerci6rese de que los orificios de protecci6n de su disco maestro de CP/M estan abiertos. 



Despu^ de introducido el disco 



En la cara frontal de la unidad de disco, situada en el lateral derecho del 6128, hay un 
piloto rojo y un bot6n de eyecci6n: 




m 



Piloto 
rojo 



Botdn de 
eyecci6n 



Piloto 



Cuando estd encendido, indica que el ordenador estd leyendo datos del disco o escribiendo 
en el. 

Si se ha conectado una segunda unidad de disco (unidad B), su piloto estar^ encendido 
constantemente, y se apagara cuando se encienda el de la unidad principal (unidad A). 



Boton de eyeccion 



Al pulsar este bot6n se expulsa parcialmente el disco, lo que permite que el usuario lo 
extraiga. 
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Parte 4: IVIanos al teclado . . . 



Antes de empezar a cargar y grabar programas necesitamos familiarizarnos con algunas 
teclas del ordenador. Si tiene usted alguna experiencia en el manejo de los ordenadores, 
puede omitir la lectura de esta seccion. 

Encienda el ordenador y vera el mensaje inicial en la pantalla. Vamos a explicar las fun- 
ciones de las diversas teclas: 




Las cuatro teclas que estan marcadas con sendas flechas (y situadas en el extremo inferior 
derecho del teclado) son las 'teclas de movimiento del cursor'. Estas teclas sirven, pues, 
para mover el cursor por la pantalla. 

Piilselas todas ellas y practique hasta familiarizarse con su funcionamiento. 



RETURN 



116 
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La tecla [RETURN] sirve para introducir en el ordenador lo que usted ha tecleado. Una 
vez pulsada la tecla [RETURN], el cursor salta automdticamente a la linea siguiente de 
la pantalla. Siempre que escriba una orden directa o una instruccion de programa, pulse 
[RETURN] al final 

De ahora en adelante escribiremos [RETURN] para indicar que se debe pulsar esta tecla 
al terminar de teclear ordenes o instrucciones de programa. 




En circunstancias normales (esto es, si no se modifica por programa su funcion), esta tecla 
tiene el mismo efecto que [RETURN] y puede ser utilizada en su lugar. Sin embargo, al 
igual que las restantes teclas de funcion del teclado numerico, [INTRO] puede ser redefini- 
da, segiin explicaremos mas adelante. 



~ 








<-BORR 











Esta tecla sirve par borrar el caracter (letra, niimero o signo) que esta a la izquierda del 
cursor. 

Teclee abed y observe que el cursor queda inmediatjunente a la derecha de la letra d. Para 
borrar la d, pulse la tecla [<-BORR]. Si la mantiene pulsada durante algiin tiempo, ver^ 
como se borreui tambien las otras tres letras. 

Hay dos teclas [MAYS], una a cada lado del teclado. Si mantiene pulsada una de ellas 
al tiempo que pulsa una tecla literal (de letras), en la pantalla aparecera la correspondiente 
letra en mayiiscula. 
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Escriba la letra e, pulse la tecla [MAYS] y, antes de soltarla, vuelva a teclear la e. En 
la pantalla verd lo siguiente: 

eE 

Escriba ahora unos cuantos espacios (manteniendo pulsada durante algun tiempo la barra 
espaciadora). Para probar el efecto de {MAYS] con las teclas numMcas, escriba el 2, pul- 
se IMAYS] y, sin soltarla, vuelva a escribir el 2. El la pantalla aparecerd lo siguiente: 

T 

Haga pruebas con las diferentes teclas de caracteres para observar su efecto con y sin 
[MAYS]. 



I— 




■*■■ 




FIJA 
MAYS 











Su efecto es en cierto modo similar al de [MAYS]. Con s61o pulsarla una vez, las letras 
que se escriban a continuacion aparecerdn en mayiisculas en la pantalla, pero, en cambio, 
las teclas num6ricas y de signos no resultan afectadas. 

Pulse [FIJA MAYS] una sola vez y luego escriba lo siguiente: 

abcdef123466 
En la pantalla aparecerd: 

ABCDEF123466 

Observe que las letras ban sido convertidas a mayiisculas y que, sin embargo, los mimeros 
no ban sido convertidos a los signos que estdn grabados en la parte superior de las teclas 
num^ricas. Para obtener estos signos se pulsa la tecla correspondiente en combinaci6n con 
[MAYS]. Escriba ahora lo siguiente, manteniendo pulsada la tecla [MAYS]: 

abcdef123456 
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^En la pantalla apareceri: 

■ ABCDEF!"#$%& 

, Para volver a caracteres normales (en miniisculas), pulse por segunda vez [FIJA MAYS]. 




■ 






FIJA 
MAYS 







Si lo que desea es obtener letras mayiisculas y los signos marcados en la parte superior 
de las teclas, sin tener que mantener pulsada la tecla [MAYS], puede hacer lo siguiente: 
mantenga pulsada la tecla [CONTROL] y pulse [FIJA MAYS] una sola vez. Para compro- 
bar el efecto de esta combinaddn, escriba lo siguiente: 

abcdef123466 

En la pantalla aparecer^: 

ABCDEF!"#$%& 

En esta situacion, se pueden escribir numeros utilizando el teclado niun^rico (teclas fO a 
f9) que esta a la derecha del teclado principal. 

Manteniendo pulsada la tecla [CONTROL] al tiempo que se pulsa [FIJA MAYS] se vuelve 
al modo anterior (es decir, a miniisculas o a bloqueo de mayiisculas). Si el modo al que 
ha vuelto es a bloqueo de mayiisculas, pulse [FIJA MAYS] para retomar al modo nor- 
mal, esto es, a miniisculas. 




F'sta tecla borra el caracter que esti bajo el cursor. 
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Escriba ABCDEFGH. El cursor ha quedado a la derecha de la ultima letra (la H). Pulse 
cuatro veces la tecla 0. El cursor se ha movido cuatro posiciones hacia la izquierda, 
de modo que esta superpuesto a la letra E. 

Observe que la letra E es visible a traves del cursor. Pulse [CLR] y observe como desapare- 
ce la letra E y como se mueven hacia la izquierda las letras FGH; bajo el cursor queda 
la F. Pulse durante unos instantes [CLR]: primero desaparece la F, y luego la G y la H. 



ESC 



Esta tecla se utiliza para abandonar una funcion que el ordenador este realizando. Si se i 
pulsa [ESC] una vez, el ordenador interrumpe su tarea momentaneamente, y la reanuda ^ 
si a continuacion se pulsa cualquier otra tecla. \ 

Si se pulsa [ESC] dos veces seguidas, el ordenador abandona definitivamente la tarea que ^ 
esta realizando y queda a la espera de otras 6rdenes. \ 



Importante 



Cuando se han escrito 40 caracteres en una linea, el cursor esta en el extremo derecho de i 
ella; el siguiente caracter aparecera automaticamente al principio de la linea siguiente. Es- ] 
to significa que no se debe pulsar [RETURN], a diferencia de lo que se hari'a si se estuviera ' 
trabajando con una maquina de escribir, en la que se ha de teclear el retorno del carro 
al acercarse al final de cada linea. 1 

El ordenador realiza esta funcion automdticamente; ante un [RETURN] indebido, reac- j 
cionara con un mensaje de error, generalmente Syntax error, bien en el acto o bien ma*^ 
tarde, cuando se ejecute el programa. 

Syntax error (error de sintaxis) 

Cuando en la pantalla aparece el mensaje Syntax error, el ordenador esta diciendo que j 
no ha entendido la orden que se le ha dado. j 

i 
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t 

i 

jPor ejemplo, escriba 

printt [RETURN] 
jEn la pantalla aparecera el mensaje: 

Syntax error 

•"Esto ocurre porque el ordenador no entiende la instruccion printt. 
"Si el mismo error se comete en una linea de programa, tal como 

10 printt "abc" [RETURN] 

el mensaje Syntax error no aparece hasta que se ejecuta el programa. Escriba: 

' run [RETURN] 

. (Esta orden pide al ordenador que ejecute el programa que tiene en este momento almace- 
\ nado en la memoria.) En la pantalla aparece: 

Syntax error in 10 
. 10 printt "abc" 

Este mensaje indica en que linea se ha detectado el error y exhibe la linea con el cursor 
; ya preparado para que el usuario pueda corregirla. 

Lleve el cursor, con la tecla 0, hasta una letra t de printt. Pulse [CLR] para borrar la 
^ t que sobra y luego pulse [RETURN] para introducir la linea corregida en el ordenador. 

Escriba ahora: 
' run [RETURN] 

' Bl ordenador ha entendido la instrucci6n; de hecho, ha escrito en la pantalla: 

I 
abc 
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Parte 5: Carga de programas y juegos 



Bienvenidos aquellos que han pasado aqui directamente desde el comienzo de la secci6n 
anterior. 



Cartucho de juegos 



Como ya hemos dicho en la Parte 1 , la ejecucion del juego de demostracion suministrado 
con el 464/6128 es tan facil como pulsar la tecla [f2]. Si usted adquiere otros cartuchos, 
ni siquiera necesitara esta operacion, ya que el juego arrancara automaticamente al encen- 
der el ordenador. 



Carga de programas desde disco (solo 612S) ; 

Cada disco de programa deberia venir con sus propias instrucciones, aunque probable- t 
mente usted se encontrara con que debe escribir algo del siguiente estilo: 

run "disc" [RETURN] 

Instantes despues, el juego sera cargado y estard preparado para que usted juegue. 

Si el programa no se ha cargado normalmente, estudie el mensaje que ha aparecido en 
la pantalla para averiguar que ha ocurrido. Por ejemplo. 

Drive A: disc missing 
Retry, ignore or Cancel? 

significa que no ha insertado el disco, o que no lo ha hecho correctamente, o quiza que 
lo ha puesto en la unidad B. 

DISC not found 

significa que no ha puesto el disco correcto, o que ha puesto la otra cara, o que no ha 
tecleado correctamente el nombre del programa, DISC. 
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Si aparece el mensaje 
Bad command 

lo mas probable es que haya tecleado mal DISC, quiza incluyendo un espacio o un signo 
de puntuacion. 

Type mismatch 

significa que ha omitido las comillas (")• 

Syntax error 

indica que ha tecleado incorrectamente la orden run. 
El mensaje 

Drive A: read fail 
Retry, Ignore or Cancel? 

indica que el ordenador no ha conseguido leer los datos grabados en el disco. Compruebe 
que el disco que ha insertado es el correcto y pulse R (de Retry, 'volver a intentarlo'). Este 
es el mensaje que aparece siempre que se ha estropeado un disco por dejarlo dentro de 
la unidad al apagar o encender el sistema. 

Cuando hayamos expUcado como hacer copia de los discos, copie sistematicamente todos 
los programas valiosos, en particular el disco maestro de CP/M. 

Carga de programas desde cinta (solo 464) 

Cada programa debe venir con sus propias instrucciones, pero probablemente usted se en- 
contrara con que tiene que escribir algo del siguiente estilo: 

run "[RETURN] 

Existe un metodo abreviado para escribir esta linea que solo requiere la pulsacion de dos 
teclas: 

1. Pulse la tecla [CONTROL] y, sin soltarla, pulse [RETURN] 

2. Suelte ambas teclas y pulse [RETURN]. 
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La pantalla responde de la siguiente manera: 

Press PLAY then any key 

Este mensaje ('Pulse PLAY y luego cualquier tecla') indica que se debe pulsar el boton 
PLAY del magnetofono y despues una tecla cualquiera en el teclado del ordenador. Por 
'una tecla cualquiera' se debe entender, aqui y en lo sucesivo, cualquier tecla menos las 
siguientes: [MAYS], [FIJA MAYS], [CONTROL] y [ESC]. 

La tecla que usted pulse no producira ningun caracter en la pantalla, sino que hara que 
el motor del magnetofono comience a reproducir la cinta. De lo contrario, pulse otra tecla 
(es una buena costumbre utilizar la tecla [INTRO]) y compruebe que no se ha presionado 
accidentalmente la tecla PAUSE 

Si usted pulsa mas de una tecla, el ordenador ignora las demas pulsaciones una vez que 
ha comenzado a cargar el programa. 

Observe que no hemos especificado el nombre de ningun programa. Cuando solo se da 
la instruccion 

RUN" 

el ordenador busca el primer programa que puede encontrar en la cinta y lo carga. Una 
vez que el ordenador ha encontrado el primer programa correctamente grabado en la cin- 
ta, muestra el siguiente mensaje: 

Loading GAMEPLAY 1 block 1 

Este mensaje informa de que el ordenador ha encontrado el primero de una serie de blo- 
ques del programa titulado Gameplay. Cada programa es grabado en la cinta en forma 
de bloques de datos (hasta un maximo de 2 kilobytes). Cada bloque esta identificado por 
separado en la cinta, y el mensaje de la pantalla le informa del bloque que esta siendo 
leido en ese momento. Despues de cada bloque de datos, la cinta se detiene momentanea- 
mente y despues vuelve a ponerse en movimiento. El mensaje de la pantalla se actualiza 
entonces para mostrar el bloque que esta siendo leido. 

Si el ordenador detecta en algiin momento datos erroneos, mostrara un mensaje de error 
informando de la naturaleza del problema. En estos casos, por lo general no se puede ha- 
cer otra cosa mas que volver a intentar cargar el programa hasta que no se produzca nin- 
gun error. 

Si la cinta esta siendo cargada, lo unico que usted tiene que hacer es leer las instrucciones 
en la pantalla y el 464 hara el resto. 
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Errores de lectura 

Si durante la carga de un programa o de un fichero de datos el ordenador emite el mensaje 
Read error ('error de lectura'), la cinta continiia funcionando y el ordenador sigue leyen- 
do bloques, pero no los carga mientras no encuentre el bloque niimero 1 del programa 
que se le habi'a pedido que csugase. 

Cuando se produce un error de lectura lo que se debe hacer es parar la cinta 
(STOP/EJECT), rebobinarla (REW) y pulsar PLAY otra vez. El ordenador hara enton- 
ces un nuevo intento. 

Los errores de lectura se pueden producir por diversas causas. For ejemplo, por el deterio- 
ro accidental de la cinta o de su superficie sensible o por haber apagado el ordenador es- 
tando la cinta en el magnetofono y d boton PLAY (o REC y PLAY) pulsado. 

En efecto, cuando esta pulsado este boton, la cinta esta presionada contra la cabeza gra- 
badora; al apagar el ordenador y descargarse la fuente de alimentacion, puede pasar un 
impulse electrico hacia la cinta a traves de la cabeza. Aunque la cinta este parada, ese im- 
pulse (lo mismo que el que se produce al encender el ordenador) puede alterar la informa- 
cion que esta grabada en la cinta. Por otra parte, la cinta puede deformarse si se la deja 
demasiado tiempo oprimida entre el eje de arrastre y la rueda de caucho. 

Los errores de lectura tambien se pueden producir si se pulsa PAUSE durante la lectura 
(o si se pulso este boton durante la grabacion), o si la cinta ha sido grabada en otro 
CPC464 en el que la cabeza grabadora estuviera mal alineada. 

Finalmente, a veces se presentan errores de lectura sin causa aparente. La cinta de cassette 
no fue diseiiada originalmente como medio de almacenamiento de datos digitales, y por 
lo tanto no es perfecta en esta aplicacion. Hay razones fisicas que limitan la velocidad 
a la que se puede grabar datos en la cinta. Si se intenta sobrepasar esa velocidad maxima 
(por ejemplo, en los metodos de duplicacion masiva de cintas de programas de bajo pre- 
cio), las grabaciones dejan de ser fiables. 

Nota. Las cintas grabadas por o para ordenadores de otras marcas no pueden ser leidas 
por el CPC464. Pueden tener el mismo aspecto externo, e incluso producir los mismos 
ruidos cuando se las reproduce en un sistema de audio, pero los datos estaran grabados 
con un formato incompatible en el CPC464. 



Curso de introduccion 1/25 



Parte 6: Empec^emos a trabajar . . . 



A estas alturas ya sabemos que podemos y que no podemos hacer con el ordenador, asi 
come la forma de conectarle perif^ricos. Sabemos para que sirven algunas teclas del orde- 
nador y como cargar programas. Ahora vamos a ver algunas de la ordenes e instrucciones 
que usted puede teclear para que empiecen a ocurrir cosas .... 

Al ordenador le ocurre lo que a los humanos: s61o puede entender instrucciones que se 
le dan en el lenguaje que el conoce. En el caso del ordenador, ese lenguaje es BASIC (si- 
glas de Beginners' All-purpose Symbolic Instruction Code, 'codigo de instrucciones sim- 
bolicas de uso general para principiantes'). Las palabras del vocabulario de BASIC son 
la Uamadas 'palabras clave', 'palabras reservadas' o 'palabras de instruccion'. Cada una 
de ellas ordena a la maquina que realice una determinada funcion. Todos los lenguajes 
tienen sus reglas gramaticales, y BASIC no es la excepcion. Aquf, el concepto de gramati- 
ca se reduce al de 'sintaxis'; de ahi que el ordenador tenga la amabilidad de decirnos de 
vez en cuando que hemos cometido un error de sintaxis: Syntax error. 



Introduccion a las palabras clave del BASIC 
de AMSTRAD 



En el tercer capitulo, titulado 'Lista completa de las palabras clave del BASIC del ASM- 
TRAD', daremos una descripcion de todas las palabras del dialecto de BASIC que entien- 
de este ordenador. En esta seccion vamos a presentar s6Io las que se utilizan con mayor 
frecuencia. 



CLS 

Para borrar la pantalla escriba: 

els [RETURN] 

Como puede observar, la pantalla efectivamente se borra y en su extreme superior izquier- 
do aparecen la palabra Ready y el cursor ■ . 

Para introducir palabras clave de BASIC valen tanto las letras mayiisculas como las 
mimisculas. 
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PRINT 

Esta instruccion sirve para hacer que el ordenador escriba en la pantalla caracteres suel- 
tos, palabras completas, frases o numeros. Teclee la siguiente orden: 

print "hola" [RETURN] 

En la pantalla puede ver: 
hola . 

Las commas "" indican al ordenador que es lo que debe escribir. La palabra hola apare- 
cio en la pantalla en cuanto se pulso [RETURN]. Teclee 

els [RETURN] 

para borrar la pantalla. 

RUN 

En el ejemplo anterior hemos visto como obedece el ordenador una orden directa. Pero 
esto no siempre es deseable, ya que el ordenador olvida la orden inmediatamente despues 
de ejecutarla. Podemos almacenar en la memoria del ordenador una sucesion de instruc- 
ciones para que mas tarde sean ejecutadas en un orden determinado. Tal sucesion de ins- 
trucciones constituira un programa. Las instrucciones de BASIC que podemos incluir en 
un programa tienen la forma que hemos visto, pero van precedidas de un ntimero de linea. 
Si el programa consta de mas de una instruccion, los numeros de linea indican al ordena- 
dor en que orden debe ejecutarlas. Cuando despues de teclear una Ifnea de instruccion se 
pulsa [RETURN], la linea queda almacenada en la memoria hasta que pidamos al ordena- 
dor que ejecute el programa. Escriba lo siguiente: 

10 print "hola" [RETURN] 

Observe que en este caso, aunque ha pulsado [RETURN], la palabra hola no ha aparecido 
en la pantalla, sino que ha quedado almacenada en la memoria del ordenador, mcluida 
en la linea de programa. Para ejecutar este pequeno programa debemos dar al ordenador 
la orden directa run. Escriba 

run [RETURN] 

Ahora si aparece la palabra hola en la pantalla. 
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Observe algo interesante: en lugar de escribir la palabra print completa, basta con teclear 
el signo de interrogacion ?; por ejemplo, 

10 ?"hola" [RETURN] 

LIST 

Cuando se tiene un programa almacenado en la memoria, se puede comprobar su conteni- 
do haciendo un 'listado'. Escriba 

list [RETURN] 

En la pantalla aparece 

10 PRINT "hola" 

que es la linica li'nea de nuestro programa. 

Observe que ahora la palabra PRINT esta en mayiisculas. Esto nos indica que el ordena- 
dor ha reconocido PRINT como palabra clave de BASIC. 

Escriba cls[RETURN] para borrar la pantalla. Observe que, aunque se ha borrado el tex- 
to que habia en la pantalla, el programa sigue estando en la memoria del ordenador. 

GOTO 

Esta instruccion pide al ordenador que salte de la li'nea actual a la linea especificada, para 
no ejecutar un grupo de instrucciones, si el salto es hacia delante, o para formar un bucle, 
si el salto es hacia atras. Escriba 

10 print "hola" [RETURN] 
20 goto 10 [RETURN] 

y luego 

run [RETURN] 

Como puede ver, el ordenador escribe repetidamente la palabra hola, a la izquierda de 
la pantalla, saltando cada vez a la Ifnea siguiente. La raz6n es que, al llegar a la linea 20, 
la instruccion goto 10 reenvia el programa a la linea 10. 
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Para detener el programa, pulse [ESC] una vez. Para reanudarlo, pulse cualquier otra te- 
cla. Para detenerlo definitivamente, de forma que se pueda introducir otras instrucciones, 
pulse [ESC] dos veces. 

Escriba ahora 

els [RETURN] 

para borrar la pantalla. 

Para inhibir el salto a la linea siguiente de la pantalla cada vez que el ordenador escriba 
hola, introduzca nuevamente el programa anterior, pero poniendo ahora un signo de 
punto y coma (;) al final de las comillas: 

10 print "hola"; [RETURN] 
20 goto 10 [RETURN] 
run [RETURN] 

El punto y coma indica al ordenador que debe escribir el siguiente grupo de caracteres 
inmediatamente a la derecha del anterior (suponiendo que quepan en la misma linea). 

Para detener este programa pulse [ESC] dos veces. Escriba otra vez la linea 10, pero po- 
niendo una coma (,) en lugar del punto y coma (;): 

10 print "hola", [RETURN] 
run [RETURN] 

Como puede observar, la coma ha indicado al ordenador que escriba el siguiente grupo 
de caracteres 13 posiciones a la derecha del lugar en que empezo a escribir el anterior. Esta 
funcion es util cuando se quiere visualizar informacion en columnas. No obstante, si el 
mimero de caracteres del grupo es mayor que 12, la escritura empezara otras 13 posiciones 
mas a la derecha, de forma que entre columnas siempre quedara algiin espacio. 

Este mimero, 13, es modificable con la instruccion ZONE, que describiremos mas ade- 

lante. 

Para detener este programa, pulse [ESC] dos veces. Para borrar completamente la 

memoria del ordenador, pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, 

pulse [ESC]. 
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INPUT 

Esta instruccion hace que el ordenador quede a la espera de que el usuario introduzca in- 
formacion por el teclado; por ejemplo, en respuesta a alguna pregunta. 

Escriba lo siguiente: 

10 input "cuantos anos tienes";edad [RETURN] 
20 print "pues no aparentas tener";edad; 

"afios." [RETURN] 
run [RETURN] 

En la pantalla aparece la pregunta: 

cuantos afios tienes? 

Escriba su edad y pulse [RETURN]. Si, por ejemplo, su edad es 18 aflos, el programa es- 
cribe lo siguiente: 

pues no aparentas tener 18 anos. 

Este ejemplo ilustra la utilizacion de input combinada con una variable numerica. Hemos 
puesto la palabra edad al final de la linea 10, y por consiguiente en la memoria, para que 
el ordenador pueda asociaria al mimero que el usuario introduzca; despues, en la linea 
20, en lugar de edad escribird ese mimero. Nada nos obligaba a elegir precisamente ese 
nombre, edad, y podiamos haber utilizado una letra cualquiera, por ejemplo, b. 

Reinicialice el ordenador para borrar la memoria (teclas [CONTROL] [MAYS] [ESC]). 
Si queremos captar por el teclado una respuesta que este formada por caracteres cuales- 
quiera (letras solas o letras mezcladas con mimeros), debemos poner el signo de dolar ($) 
al final del nombre de la variable. Las variables de este tipo son las que denominamos 
variables literates. 

Escriba el siguiente programa (observe que en la linea 20 hay que poner un espacio des- 
pues de la primera coma, pero no antes de la segunda): 

10 input "como te llamas" ;nombre$ [RETURN] 
20 print "hola, ";nombre$;", yo me llamo 

Rolando" [RETURN] 
run [RETURN] 
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En la pantalla puede ver: 

como te llamas? 

Escriba su nombre y luego pulse [RETURN]. Si el nombre introducido es, por ejemplo, 
Manolo, el programa escribe: 

hola, Manolo, yo me liamo Rolando 

En este caso hemos usado nombre$ como nombre de la variable literal, pero perfecta- 
mente podriamos haber elegido una letra cualquiera, por ejemplo, a$. Vamos a combinar 
los dos ejemplos anteriores en un solo programa. 

Reinicialice la maquina con [CONTROL] [MAYS] [ESC]. Escriba lo siguiente: 

5 els [RETURN] 

10 input "como te llamas" ;a$ [RETURN] 
20 input "cuantos afios tienes";b [RETURN] 
30 print "desde luego, ";a$;", no aparentas 

tenet" ;b;"anos" [RETURN] 
run [RETURN] 

En este programa hemos utilizado dos variables: a$ para representar el nombre y b para 
representar la edad. En la pantalla aparece la primera pregunta: 

como te llamas? 

Escriba su nombre (supongamos que es Manolo) y luego pulse [RETURN]. El ordenador 
le pregunta ahora: 

cuantos afios tienes? 

Escriba su edad (supongamos que es 18 anos) y luego pulse [RETURN]. 

Si lo que hemos supuesto es cierto, en la pantalla aparecera la siguiente frase: 

desde luego, Manolo, no aparentas tener 18 anos 
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Edicion de programas 



Si alguna de las lineas del programa anterior hubiera sido mecanografiada incorrectamen- 
te, lo que podria provocar el mensaje de error Syntax error o algiin otro, en lugar de 
escribirla de nuevo es posible corregirla ('editarla' es como se dice en informatica). Para 
ilustrar como hacerlo, vamos a escribir incorrectamente el programa: 

5 ciss [RETURN] 

10 input "como t llamas" ;a$ [RETURN] 
20 input "cuantos anos tienes";b [RETURN] 
30 pririt "desde luego,";a$;", no aparentas 
tener";b;"anos" [RETURN] 

En este programa hay tres errores: 

En la linea 5 hemos escrito cIss en lugar de els. 

En la linea 10 hemos escrito t en lugar de te. 

En la h'nea 30 hemos olvidado poner un espacio entre la coma y el signo de cerrar comillas. 

Hay tres metodos para corregir un programa. El primero consiste en escribir nuevamente 
la linea erronea. Al hacerlo, la h'nea nueva sustituye a la que habia en la memoria con 
el mismo niimero. 

El segundo es el 'metodo del cursor de edicion'. 

El tercero es el 'metodo del cursor de copia'. 



Metodo del cursor de edicion 

Vamos a corregir el error de la linea 5. 
Escriba lo siguiente: 

edit 5 [RETURN] 

En la pantalla aparece la linea 5, por debajo de la 30, con el cursor situado sobre la c 
de ciss. 

Para suprimir la s que sobra, pulse la tecla de movimiento del cursor hasta que este 
quede sobre la ultima s de cIss; pulse la tecla [CLR] y observe como desaparece la s. 
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A continuacion pulse [RETURN] para introducir la version corregida de la linea 5 en la 
memoria. Escriba 

list [RETURN] 

y comprobara que la linea ha quedado corregida. 

La orden AUTO, que describiremos mas adelante en este manual, se puede combinar con 
este metodo para corregir un grupo de lineas sucesivas. 



Metodo del cursor de copia 

El cursor de copia es un segundo cursor, distinto del que puede ver en este momento en 
la pantalla, que aparece cuando se pulsa [MAYS] en combinacion con alguna de las teclas 
de movimiento del cursor. De esta forma, el cursor de copia se separa del cursor ordinario 
y puede ser Uevado a cualquier lugar de la pantalla. 

Para corregir los errores de las lineas 10 y 30, pulse la tecla [MAYS] y, sin soltarla, pulse 
[t] hasta llevar el cursor de copia al principio de la linea 10. Observe que el cursor prin- 
cipal no se ha movido, por lo que hay dos cursores en la pantalla. Ahora pulse varias veces 
[COPIA] hasta que el cursor de copia este sobre el espacio que hay entre la t y la palabra 
llamas. Observe que el principio de la linea 10 ha sido copiado en la ultima linea de la 
pantalla y que el cursor principal se ha detenido en la misma columna que el de copia. 
Escriba la letra e, que aparecera solamente en la linea inferior. 

El cursor ordinario se ha movido, pero el de copia se ha quedado donde estaba. Pulse 
ahora [COPIA] hasta completar la copia de la linea 10. Pulse [RETURN] para transferir 
esta version de la linea 10 a la memoria. El cursor de copia desaparece y el cursor ordina- 
rio queda por debajo de la nueva linea 10. 

Para corregir el otro error, mantenga pulsada la tecla [MAYS] y Ueve el cursor de copia 
con la tecla [T] hasta el principio de la linea 30. Pulse [COPIA] hasta que el cursor de co- 
pia quede sobre las comillas que siguen a la coma. Pulse la barra espaciadora una vez, 
con lo que se inserta un espacio en la linea nueva. Pulse [COPIA] y no la suelte hasta que 
haya terminado de copiar el resto de la linea 30; pulse entonces [RETURN]. 

Compruebe que el programa ha quedado correctamente almacenado en la memoria 
escribiendo: 

list [RETURN] 
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Nota. Para Uevar el cursor (durante el proceso de edicion) al principio o al final de una 
linea, pulse la tecla o la una vez manteniendo pulsada d\ mismo tiempo la tecla 
[CONTROL]. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

IF 

Las palabras clave IF (si) y THEN (entonces) se combinan para hacer que el ordenador 
realice una determinada accion en funcion del resultado de una comprobacion especifica- 
da. Por ejemplo, en la instruccion 

if 1+1=2 then print "correcto" [RETURN] 

el ordenador comprueba si es cierto que 1 + 1=2 y obra en consecuencia. 

La palabra clave ELSE (si no) da un segundo curso de accion para el caso de que la com- 
probacion de como resultado 'falso' (o sea, que la condici6n no se cumpla). Por ejemplo, 

if 1+1=0 tlien print "correcto" else print "falso" 
[RETURN] 

Vamos a ampliar nuestro programa anterior con la instrucci6n IF ... THEN. Escriba lo 
siguiente: 

5 els [RETURN] 

10 input "como te llamas" ;a$ [RETURN] 

20 input "cuantos afios tienes";edad [RETURN] 

30 if edad < 13 then 60 [RETURN] 

40 if edad < 20 then 70 [RETURN] 

50 if edad > 19 then 80 [RETURN] 

60 print "Bueno, ";a$;", todavia no eres un 

adolescente a los";edad;"anos":end [RETURN] 
70 print "Bueno, ";a$;". a tus";edad;"anos eres 

un adolescente" :end [RETURN] 
80 print "Que le vamos a hacer, ";a$;". ya no eres 

un adolescente a tus";edad;" afios" [RETURN] 

(Observe que hemos introducido dos simbolos nuevos: <, que significa 'menor que' y estd 
junto a la tecla de la M, y >, que significa 'mayor que' y esta junto a la tecla de <.) Para 
comprobar que el programa ha quedado correctamente introducido en la memoria escriba 

list [RETURN] 
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y a continuaci6n 
run [RETURN] 

Responda a las preguntas que le haga el ordenador y vea que ocurre. 

En este ejemplo puede observar el efecto de la instruccion IF ... THEN. Tambidn hemos 
introducido una palabra clave nueva: END (fin); su efecto es concluir la ejecucion del pro- 
grama. Si no estuviera END en la linea 60. el programa continuaria en la linea 70. Por 
lo mismo, si no hubi6ramos puesto END en la linea 70, el programa no terminaria en ella, 
sino que ejecutaria tambien la 80. El signo de dos puntos (:) que precede a la palabra END 
separa esta palabra de la instrucci6n anterior. Este signo se puede utilizar para separar 
instrucciones cuando interese poner varias en una misma Unea de programa. Tambien he- 
mes incluido la linea 5, en la que borramos la pantalla. En lo sucesivo seguiremos haci6n- 
dolo, para obtener programas m^s 'elegantes' y evitar confusiones. 

Reinicialice la maquina pulsando las teclas [CONTROL] [MAYS] [ESC]. 

FOR ... NEXT 

Estas palabras clave se utilizan cuando se desea que una parte del programa se repita cier- 
to mimero de veces. Las instrucciones que deban repetirse son las que se incluyen dentro 
del buck FOR . . . NEXT (para . . . siguiente). 

Escriba lo siguiente: 

5 els [RETURN] 

10 for a=1 to 10 [RETURN] 

20 print "operacion numero:";a [RETURN] 

30 next a [RETURN] 

run [RETURN] 

Como puede ver, la accion de la linea 20 ha sido realizada 10 veces, tal como exige la ins- 
truccion FOR de la linea 10. Observe tambien c6mo se ha ido incrementando de 1 en 1 
la variable a. 

La palabra clave STEP (paso) se puede incluir en la instrucci6n FOR . . . NEXT para espe- 
cificar la forma en que debe incrementarse o decrementarse la variable de control del bu- 
cle. Por ejemplo, modifique la linea 10 y ejecute el programa: 

10 for a=10 to 50 step 5 [RETURN] 
run [RETURN] 
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El paso tambien puede ser negative. Por ejemplo: 

10 for a=100 to step -10 [RETURN] 
run [RETURN] 

REM 

REM es abreviatura de REMark (observacion, comentario). Esta instruccion indica al or- 
denador que debe ignorar todo lo que haya despues de ella en la Imea de programa. Sirve, 
pues, para hacer anotaciones al programa; por ejemplo, el ti'tulo, el significado de una 
variable, etc.: 

10 REM Fuiminar los invasores [RETURN] 

20 S=5:REM numero de supervivientes [RETURN] 

El signo de comilla ' (que se obtiene de la tecla del 7 con [MAYS]) es a su vez abreviatura 
de :REM. Por ejemplo, 

10 'Fuiminar los invasores [RETURN] 

20 S=5 'numero de supervivientes [RETURN] 

GOSUB 

Si en un programa hay un grupo de instrucciones que deban ser ejecutadas varias veces, 
no es necesario escribirlas reiteradamente cada vez que el programa las necesite. Lo que 
se hace es ponerlas en una 'subrutina', la cual puede ser invocada siempre que se desee 
mediante la instruccion GOSUB (ir a subrutina) seguida del numero de la linea donde em- 
pieza la subrutina. El final de la subrutina se seiiala con la instruccion RETURN (retor- 
no). Cuando el programa Uega a RETURN, la ejecucion salta a la instruccion siguiente 
al GOSUB que invoco la subrutina. 

En el siguiente programa: 

10a=2 

20 PRINT "esta es la table de muitiplicar der';a 

30 FOR b=1 TO 12 

40 c=a*b 

50 PRINTa;"x";b;"=";c 

60 NEXT 

70 PRINT 

80' 
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90a=5 

100 PRINT "esta es la tabia de multiplicar del";a 

110 FOR b=1 TO 12 

120 c=a*b 

130 PRINT a;"x";b;"=";c 

140 NEXT 

150 PRINT 

160' 

170 a=8 

180 PRINT "esta es la table de multiplicar del";a 

190 FOR b=1 TO 12 

200 c=a*b 

210 PRINT a;"x";b;"=";c 

220 NEXT 

230 PRINT 

240' 

250 a=9 

260 PRINT "esta es la table de multiplicar der';a 

270 FOR b=1 TO 12 

280 c=a*b 

290 PRINT a;"x";b;"=";c 

300 NEXT 

310 PRINT 



puede observar que hemos repetido varias instrucciones. Por ejemplo, la secci6ii com- 
prendida entre las lineas 20 a 80 esta repetida otras tres veces. Pongamos toda la seccion 
en una subrutina, con RETURN al final; entonces podremos 'Uamarla' con la mstruccion 
GOSUB 260 cada vez que la necesitemos. El programa queda de la siguiente forma: 



10a=2 

15 GOSUB 260 

80' 

90a=5 

95 GOSUB 260 

160' 

170 a=8 

175 GOSUB 260 

240' 

250 a=9 

255 GOSUB 260 

256 END 
257' 
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260 PRINT "esta es la tabia de multiplicar der';a 

270 FOR b=1 TO 12 

280 c=a*b 

290PRIIMTa;"x";b;"=";c 

300 NEXT 

310 PRINT 

315 RETURN 

EI ahorro de trabajo es evidente. El correcto diseflo de subrutinas es una faceta esencial 
de la informatica. Con ellas se puede escribir programas 'estructurados'; son la base para 
la adquisicidn de buenos hdbitos de programaci6n. 

Cuando escriba subrutinas, tenga en cuenta que no esta obligado a saltar siempre a su 
primera li'nea. Por ejemplo, si hay una rutina en las lineas 500 a 800, podria interesar Ua- 
marla con GOSUB 500, con GOSUB 640 o con GOSUB 790, segun las funciones de la 
subrutina que se desee ejecutar. 

Observe que en el programa anterior hemos incluido la instruccidn END en la linea 256 
para aislar la subrutina del resto del programa. De no haberlo hecho, el programa pasan'a 
de la linea 255 a la 260. 



Aritmetica sencilla 

El ordenador se puede utilizar como calculadora. 

Para aprender como hacerlo, pruebe los siguientes ejemplos. En esta seccion utilizamos 
el signo de interrogaci6n ? como abreviatura de print. El ordenador escribe la respuesta 
en cuanto se pulsa [RETURN]. 

Suma 

Escriba: 

?3+3 [RETURN] 
6 

0*^0 se teclea el signo = .) 
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Escriba: 

78+4 [RETURN] 
12 

Resta 

(No confundir el signo menos ' - ' con el de subrayado '_'.) 
Escriba: 

?4-3 [RETURN] 
1 

Escriba: 

78-4 [RETURN] 
4 

Multiplicacidn 

(El signo de multiplicacion es el asterisco * .) 
Escriba: 

73*3 [RETURN] 
9 



Escriba: 

78*4 [RETURN] 
32 

Division 

(El signo de dividir es la barra inclinada hacia la derecha, /.) 
Escriba: 

73/3 [RETURN] 
1 
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Escriba: 

78/4 [RETURN] 
2 

Division entera 

(Es la division en la que se ignora el resto; su signo es la barra inclinada hacia la izquierda 

Escriba: 

?10\6 [RETURN] 
1 

Escriba: 

?20\3 [RETURN] 
6 

IVioduio 

(La funcion MOD da el resto de la division entera.) 
Escriba: 

710 MOD 4 [RETURN] 

2 

Escriba: 

79 MOD 3 [RETURN] 


Raiz cuadrada 

Para hallar la raiz cuadrada de un niimero se utiliza la funcion sqr( ). El niimero del que 
se va a extraer la raiz (esto es, el radicando) se pone entre los parentesis. 
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Escriba: 

?sqr(16) [RETURN] 
4 

(esto significa Vl6). 
Escriba: 

?sqr{100) [RETURN] 
10 

Potenciacion 

(en los ordenadores el signo de 'elevar a una potencia' es la flecha hacia arriba, que en 
el AMSTRAD se obtiene de la tecla de R sin [MAYS]). 

La potenciacion es la operacion de elevar un numero a una potencia; es decir, multiplicar- 
lo por si mismo tantas veces como indica el exponente. Por ejemplo, 3 al cuadrado (3^), 
3 al cubo (3^), 3 a la cuarta (3"), etc. 

Escriba: 

?3t3 [RETURN] 
27 

(esto significa 3^). 
Escriba: 

?8t4 [RETURN] 
4096 

(esto significa 8'*). 

Raiz cubica 

Extraer la raiz cubica de un numero es lo mismo que elevarlo a la potencia V^. 
Asi, para hallar la raiz cubica de 27 (-^fTJ) escriba: 

?27t(1/3) [RETURN] 
3 
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Para hallar la raiz cubica de 125 escriba: 

?125t(1/3) [RETURN] 
5 

Operaciones combinadas ( = , +, *, /) 

El ordenador entiende correctamente las operaciones combinadas, pero es necesario saber 
con que orden de prioridad las realiza. 

La primera prioridad es para la multiplicaci6n y la divisi6n; la segunda, para la suma y 
la resta. lEste orden de prioridad es vdlido solamente para los c^culos en los que no inter- 
vienen mis que estas operaciones. 

Si la operacion fuera: 

3+7-2*7/4 

se podn'a pensar que el ordenador la realizEiria de la forma: 

3+7-2 *7 /4 
=8 *7 /4 
=56/4 
= 14 

Sin embargo, el proceso de cdlculo es como sigue: 

3+7-2*7/4 
=3+7-14/4 
=3+7-3.5 
= 10-3.5 
=6.5 

Compruebelo escribiendo 

73+7-2*7/4 [RETURN] 
6.5 

Para alterar este orden se pueden incluir par6ntesis segiin convenga. El ordenador realiza 
las operaciones inter nas a los parentesis antes que las externas. Compruebelo escribiendo 
lo siguiente: 

?(3+7^2)*7/4 [RETURN] 
14 
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El orden completo de prioridad de las operaciones matem^ticas es el siguiente: 



T 


Potenciaci6n 


MOD 


M6dulo 


- 


Cambio de signo 


*y/ 


Multiplicaci6n y divisi6n 


\ 


Divisi6n entera 


+ y- 


Suma y resta 



Mils exponentes 

Cuando en los cdlculos van a intervenir niimeros muy grandes o muy pequefios, es conve- 
niente a veces utilizar notacidn cientifica. La letra E (mayuscula o minuscula) indica que 
el numero que esti a su derecha es una potencia de 10. 

Por ejemplo, 300 es lo mismo que 3 x 10^. En notaci6n cientifica escribiriamos 3E2. Ana- 
logamente, 0.03 es igual a 3 x 10 "^; en notaci6n cientifica, 3E-2. Pruebe los siguientes 
ejemplos. 

Puede escribir 

730*10 [RETURN] 
300 

o bien 

73E1*1E1 [RETURN] 
300 

73000*1000 [RETURN] ... o bien .. . 73E3*1E3 [RETURN] 
3000000 

73000*0.001 [RETURN] . . . o bien . . . 73E3*1E-3 [RETURN] 
3 
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Parte 7: Grabelo . . . 



Ahora que ha ejercitado su habilidad como mecanografo escribiendo unas cuantas ins- 
trucciones, seguramente querra saber como grabar el programa. Si usted tiene un 464, lo 
grabara en cassette, mientras que si tiene un 6128 lo hard en disco. De esta forma, mas 
adelante podra volver a c£ugar el programa cuantas veces quiera. 

Ademas de las diferencias fisicas obvias, hay otras diferencias entre usar un cassette y un 
disco. Un disco nuevo no puede ser utilizado sin mas al sacarlo de su funda, como ocurre 
con la cintas; primero hay que formatearlo. Describiremos este proceso iimiediatamente. 
Ademas, mientras el disco almacena y recupera informaci6n automaticamente sobre va- 
rias porciones de la superficie del disco, la cinta debe ser rebobinada y colocada en el pun- 
to adecuado a mano, si bien el ordenador la pone en marcha y la para automdticamente. 

Otro punto que merece la pena mencionar aqui es la importancia de poner un nombre 
correcto a los ficheros almacenados. Los nombres de los ficheros de cassette se adaptan 
por lo general a normas muy flexibles que van'an en cuanto a longitud, y algunas veces 
pueden ser omitidos. Por el contrario, los ficheros de disco deben ajustarse a normas muy 
estrictas que describiremos mas adelante en esta seccion. 

Si usted tiene un 464, por favor, pase directamente a la seccion 'Grabacion de un progra- 
ma en cinta'. 



Inicializacion de discos 



Antes de poder escribir datos en un disco virgen es necesario inicializarlo o formatearlo. 
Esta operacion consiste en preparar una especie de estanteria en el disco; los estantes son 
los lugares en los que mds tarde se va a almacenar la informacion. 
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Al inicidizar un disco, este queda dividido en 360 zonas: 




Pista 39 



« Caja de protecci6n 



Sector 



Pista 



Radialmente el disco se divide en 40 pistas circulares, desde la numero 0, que es la mas 
externa, hasta la 39. Cada pista se divide en 9 sectores. 

Cada sector puede almacenar 512 bytes; por lo tanto, la capacidad total de cada cara del 
disco es de 180K. 

Primeros pasos en la utilizacion del disco 
maestro de CP/IVi 

Antes de poder grabar programas en un disco virgen es necesario inicializarlo, y para ello 
se requiere la cara 1 del disco maestro de CP/M (suministrado con el ordenador). 

Encienda el equipo e inserte la cara 1 del disco de CP/M en la unidad. Si su sistema dispo- 
ne de dos unidades de disco, utilice la incorporada en el ordenador (unidad A). 

Escriba lo siguiente: 

Icpm [RETURN] 

(El simbolo I se obtiene de la tecla @ con [MAYS].) 

Al cabo de unos segundos aparecera en la pantalla el siguiente mensaje: 

CP/M Plus for the 6128. (c) 1985 Amstrad pic 



Curso de introducci6n 



1/45 



Esto es un mensaje de saludo que indica que el ordenador estd siendo controlado por el 
sistema operative CP/M. 

Los caracteres A> constituyen un inductor, andlogo al Ready de BASIC, que avisa al 
usuario de que el ordenador estd a la espera de sus instrucciones. 

Una vez cargado CP/M, ya no se pueden teclear instrucciones de BASIC, pues el ordena- 
dor no las entenderia. 

Por ejemplo, si escribimos 

els [RETURN] 
el ordenador repite lo tecleado junto con un signo de interrogaci6n: 

CLS? 

lo que indica que no ha entendido la instrucci6n. 

Para dar un breve repaso a algunas 6rdenes de CP/M, escriba: 

dir [RETURN] 

En la pantalla aparece una lista del contenido del disco, incluidas algunas 6rdenes transi- 
torias. Una de ellas es DISCKIT. Escriba: 

disckit [RETURN] 

Al cabo de unos instantes verd aparecer en la pantalla el mensaje de presentacion de 
DISCKIT, seguido de: 

One drive found 

Esto confirma que estamos ejecutando el programa de ayuda DISCKIT y que el ordena- 
dor s61o ha detectado una unidad de disco (la incorporada en la maquina). 

En cambio, si estd conectada la segunda unidad de disco, el mensaje serd: 
Two drives found 
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En la parte inferior de la pantalla se puede ver el siguiente menu: 



Copy 


7 




Copiar 


Format 


4 


Inicializar 


Verify 


1 


Verificar 


Exit from program 





Fin del programa 



Es el menii principal del programa DISCKIT. Los niimeros recuadrados hacen referenda 
a las teclas de funci6n del teclado numerico (marcadas con fO, f1, f4 y f7). Pulsando una 
de estas teclas se elige la opci6n deseada. 

Observese que la opcidn de este menu hace que se abandone el programa DISCKIT y 
se vuelva al modo directo de consola de CP/M (inductor A>). 

Como lo que queremos hacer ahora es inicializar un disco, pulse la tecla de funcidn niime- 
ro 4 (f4). 





PRECAUCI6N 

AL INICIALIZAR UN DISCO SE BORRA SU CONTENIDO ANTERIOR. 


El programa ofrece un nuevo menu con las diferentes opciones de formato: 


System format 
Data format 
i/'endor format 
Exit menu 




9 
6 
3 


Formato de sistema 
Formato de datos 
Formato comercial 
Vuelta al menu 



Pulsando una de las teclas de funci6n (f3, f6 o f9) se selecciona el formato deseado. Mds 
adelante explicaremos las diferencias entre los diversos formates. Por ahora, elija el for- 
mato de datos pulsando la tecla de funci6n mimero 6 (f6). 

Obs6rvese que al pulsar la tecla . (que esta debajo de fS, f6 y f9) se sale de la opci6n de 
inicializacidn y se vuelve al menu principal del programa DISCKIT. 
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Despues de pulsar la tecla de funcion niimero 6 (y suponiendo que no tenga conectada 
la segunda unidad de disco) podra ver en la pantalla lo siguiente: 



Format as Data Inicializar con formato de datos 

Any other key to exit menu Cualquier otra tecla para volver al menu 

En este momento debe extraer el disco de CP/M e insertar el disco nuevo, con la cara que 
desee inicializar hacia arriba. 

Pulse ahora la tecla Y (de yes, "si"), lo que equivale a decide al ordenador: "de acuerdo, 
inicializa el disco". 

El proceso de inicializacion comienza con la pista y termina con la 39; en cada momento, 
el niimero de la pista que estd siendo inicializada aparece en el extremo superior izquierdo 
de la pantalla. 

El sistema no permite inicializar un disco que tenga abierto el orificio de proteccion contra 
escritura. Si lo intenta, el ordenador emite el mensaje: 

Disc write-protected El disco esta protegido contra escritura 

Insert disc to format Insertar disco a inicializar 

R-etry or C-ancel R-eintentar o C-ancelar 

Lo que se debe hacer en este caso es pulsar C para cancelar la operacion, extraer el disco 
e insertar el disco que si se quiere inicializar, con el orificio de protecci6n obturado. 

Es muy importante no cerrar los orificios de proteccion de los discos que contengan pro- 
gramas valiosos. NO CERRAR NUNCA los orificios de proteccion del disco maestro de 
CP/M. 

Cuando termina la inicializacion, el ordenador le pide que extraiga el disco recien iniciali- 
zado y que pulse cualquier tecla para continuar. 

Una vez hecho esto, puede inicializar otro disco insertandolo en la unidad y pulsando de 
nuevo la tecla Y. Este proceso se puede repetir tantas veces como discos tenga que iniciali- 
zar con este formato concreto. 

Cuando no haya mas discos que inicializar, pulse cualquier tecla (distinta de la Y) para 
volver al menu. 

M^ adelante explicaremos las opciones Copy y Verify. Por ahora nos basta con haber 
aprendido a inicializar discos con CP/M. Reinicialice la mdquina con [CONTROL] 
[IVIAYS] [ESC]. 
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Guarde siempre en lugar seguro el disco maestro de CP/M, que es, literalmente, la Have 
del sistema. En un capitulo posterior explicaremos como hacer 'copias de trabajo' de los 
discos de CP/M, de forma que pueda guardar los originales a salvo de toda posibilidad 
de accidente. 



Inicializacion en un sistema de 2 unidades 
de disco 



Siga las instrucciones anteriores: pulse f4 en el menii principsd de DISCKIT para elegir 
la opci6n Format (inicializaci6n) y luego pulse la tecla f6 para elegir Data format (for- 
mato de datos). 

El ordenador le muestra un tercer menu, en el que se puede elegir la unidad de disco que 
se desee utilizar: 



Format A: 
Format B: 
Exit menu 



Para no tener que extraer el disco de CP/M (cara 1) de la unidad A, se puede elegir, pul- 
sando la tecla f5, la opcion Format B:. Ponga en la unidad B el disco que desee 
inicializar. 

Despues de elegida esta opcion, puede pulsar Y para permitir que continue el proceso de 
inicializacion, o bien cualquier otra tecla para volver al menu principal de DISCKIT. 

Si elige la opci6n Format A: (tecla f8), NO OLVmE extraer de la unidad A el disco de 
CP/M. Inserte luego en ella el disco que desee inicializar. 





8 




Inicializar en A 


5 


Inicializar en B: 


2 


Vuelta al menu 











NO SE EXPONGA NUNCA AL RIESGO DE BORRAR 
LOS DISCOS MAESTROS DE CP/M 



Ahora que ya tenemos uno o dos discos preparados, vamos a empezar a transferir progra- 
mas de BASIC del ordenador al disco y viceversa. 
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Grabacion de un programa en disco 

Cuando se tiene un programa en la memoria del ordenador, se lo puede grabar en disco 
mediante la orden 

save "fichero" [RETURN] 

Observe que es indispensable dar un nombre al programa. 

EI nombre de un fichero grabado en disco consta de dos partes (campos). La primera es 
obligatoria y puede contener hasta 8 caracteres. Se pueden utilizar letras o numeros, perc 
no espacios ni signos de puntuacidn. Este primer campo suele contener el nombre del 
programa. 

El segundo campo es opcional. Puede contener hasta 3 caracteres que no sean ni espacios 
ni signos de puntuaci6n. Los dos campos se separan por un punto (.). 

Si el usuario no especifica el segundo campo, el sistema le asigna automdticamente un dis- 
tintivo: .BAS para ficheros de BASIC o .BIN para ficheros binarios (en c6digo de 
mdquina). 

Para practicar la grabacion en disco, introduzca un programa corto en la memoria del 
ordenador, inserte en la unidad un disco inicializado y escriba lo siguiente: 

save "ejempio" [RETURN] 

Al cabo de unos segundos aparecerd en la pantalla el mensaje Ready, lo que indica que 
el programa ha quedado grabado en el disco. (De no ser asi, observe los mensajes emitidos 
por el ordenador, pues puede ocurrir que no haya insertado el disco en la unidad correcta, 
que est6 abierto el orificio de proteccion o que se haya equivocado al teclear la orden.) 



Catalogo 



Una vez grabado el programa, escriba lo siguiente: 
cat [RETURN] 
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En la pantalla podra ver 

Drive A: user 
EJEMPLO.BAS IK 
168 K free 

o sea, el nombre del fichero, incluido el segundo campo, seguido de la longitud aproxima- 
da en K. En la ultima linea se indica tambien el espacio que queda libre en el disco. 



Carga del disco a la memoria del ordenador 

Los programas se pueden cargar y ejecutar con las ordenes siguientes: 

load "fichero" [RETURN] 
run [RETURN] 

Pero tambi6n se los puede ejecutar directamente con una sola orden: 

run "fichero" [RETURN] 

Los programas protegidos s61o se pueden ejecutar por este segundo m^todo. 

Mds adelante, en este manual encontrara mis informacion acerca del uso del sistema para 
manipular ficheros de programa entre discos (y cassette). 



Grabacion de un programa en cinta 

Los programas se graban en la cinta con la orden SAVE. Su forma mds sencilla es la 
siguiente: 

SAVE " nombre-del-programsl' [RETURN] 

El nombre-de/-programa puede ser una combinaci6n de 16 caracteres (incluyendo los es- 
pacios). Si usted intenta utilizar un nombre mas largo, los caracteres 17 y siguientes serdn 
ignorados. 
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El ordenador responde con el mensaje 

Press REC and PLAY then any key: 

Este mensaje ('Pulse REC y PLAY y luego cualquier tecla') indica que se debe pulsar los 
botones REC y PLAY del magnetofono y despues una tecla cualquiera en el teclado del 
ordenador. Por 'una tecla cualquiera' se debe entender cualquier tecla menos las siguien- 
tes: [MAYS], [FIJA MAYS], [ESC] y [CONTROL]. La cinta empezara a moverse y el 
ordenador grabara el programa con el nombre especificado. 

Importante. El ordenador no tiene forma de saber si el usuario efectivamente ha pulsado 
los dos botones en el magnetofono. Por eso, si no los pulsa, o si s61o pulsa FLAY, el pro- 
grama no quedara grabado. 

Advertencia. Si al intentar cargar un programa se pulsa accidentalmente REC (ademas de 
PLAY) en el magnetofono, &te se pone en modo de grabacidn, no de lectura, y borra 
la cinta. Puesto que en esta situacion el ordenador no puede encontrar el programa que 
est^ buscando, continuara borrando hasta el final de la cinta o hasta que se pulse la tecla 
[ESC]. Le sugerimos que proteja las cintas (despues de grabarlas) rompiendo la «pestaiia» 
de plastico que hay en el borde posterior del cassette (una para cada cara). 

Ficheros sin nombre y catalago de los 
ficheros de la cinta 

Si grabamos un fichero sin especificar un nombre para el mismo 
SAVE"" 

BASIC lo grabard como Unnamed file ('Fichero sin nombre'). En una misma cinta se 
puede grabar, uno tras otro, tantos ficheros con el mismo nombre (o ficheros sin nombre) ' 
como quepan, a diferencia de lo que ocurre con los discos, que requieren que cada fichero 
tenga un nombre distinto. 

Si usted no da a sus programas y ficheros nombres que recuerden el contenido de cada 
uno, pronto les perdera la pista. Tambien le recomendamos que aflada al nombre algun 
c6digo de fecha para que pueda saber cuales son los programas y ficheros de datos actuali- 
zados mas recientemente. 
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La orden CAT hace que el ordenador examine la cinta y de una lista de los ficheros que 
encuentra en ella. La forma es la siguiente: 

CAT [RETURN] 

Press PLAY then any key: 

La lista consiste en los nombres de los ficheros, seguido cada uno por el mimero de blo- 
ques de que consta y por un caracter que indica la naturaleza del fichero: 

$ para programas de BASIC en forma estandar 
% para programas de BASIC protegidos 
* para ficheros de texto ASCII 
& para ficheros binarios 



Velocidades de grabacion 

El CPC464 puede grabar y leer las cintas a dos velocidades: en la velocidad normal la 
, transferencia de datos se realiza a 1000 baudios; en la velocidad alta, a 2000 baudios. 

, Asi pues, en velocidad alta la grabacion y la lectura se realizan en la mitad de tiempo que 

,en velocidad normal, pero se pierde el margen de seguridad que a veces es imprescindible 

cuando se trabaja con cintas de baja calidad o cuemdo la grabaci6n y la lectura se realizan 

en ordenadores distintos y alguno de ellos tiene mal alineada la cabeza lectora/grabadora. 

Si los programas se van a leer en la misma maquina que los graba, la alta velocidad es 
' adecuada, siempre que las cintas no sean de calidad demasiado baja. 

I Si no se especifica otra cosa, el ordenador graba en velocidad normal. La orden 

SPEED WRITE 1 
iselecciona velocidad alta. Para volver a velocidad normal se da la orden: 

SPEED WRITE 

i Cuando carga un programa, el ordenador detecta a que velocidad ha sido grabado y selec- 
Lciona automaticamente la velocidad de lectura. 
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Consideraciones sobre las cintas 



Aunque el raagnet6fono del ordenador aceptara sin problema cassettes del tipo C90, usted 
s61o debe utilizar los de tipo C12 (6 minutos por cara) y C30 como miximo. Los progra- '< 
mas grabados al final de cintas largas son mas duros de locaUzar, a no ser que usted est^ ' 
preparado para esperar hasta que el ordenador los encuentre (y pueda recordar el nombre 
que les ha dado) o sea muy meticuloso a la hora de confeccionar un indice de ficheros 
utilizando el contador de cinta. Ademas, si quiere borrar o escribir sobre un programa 
almacenado en una cinta larga, debe tener mucho cuidado al localizar el punto de partida 
para evitar perder otro programa que si le interesaba conservar. 

Utilice cada cinta para el menor mimero posible de programas. Los cassettes de tipo C12 
son relativamente baratos y, si por alguna raz6n la cinta se estropea, es considerablemente 
menos tentador grabar una cinta que tiene algunas partes buenas. 

Finalmente, recuerde que el software comercial se suministra casi siempre bajo estrictas 
condiciones de copyright. Usted no debe intentar copiar o duplicar programas suministra- 
dos en cinta si esto supone quebrantar los t6rminos de ventas (algunos programas le indi- 
can que haga copias de seguridad), aunque se trate 's61o de una copia para un amigo'. 
Las leyes de copyright estdn siendo revisadas para cubrir todas las formas de duplicaci6n 
ilegal de programas, y, aunque hasta la fecha se ha perseguido poco este tipo de delito, 
la situaci6n cambiard sustancialmente en los pr6ximos afios, y es probable que las nuevas 
leyes tengan cardcter retroactivo. 



Tecnicas de grabacidn avanzadas 

Hay cuatro formas de grabar progrjmias con el 464/6128. Una de ellas es la ya conocida: 

save "fichero" [RETURN] 
Las otras tres tienen aplicaciones mds especializadas: 
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Ficheros ASCII 

save "fichero'^a [RETURN] 

El sufijo ,a indica al ordenador que debe grabar el programa o los datos en forma de fi- 
chero de texto ASCII. Este mftodo de grabaci6n de datos es aplicable a los ficheros gene- 
rados por procesadores de textos y otros programas; lo explicaremos mas detenidamente 
cuando hablemos de esas aplicaciones. 

Ficheros protegldos 

save "fichero" .p [RETURN] 

El sufijo ,p indica al ordenador que el fichero debe ser protegido. Cuando un programa 
est^ asi protegido, no es posible cargarlo (LOAD) para luego listarlo (LIST), ni tampoco 
interrumpirlo con la tecla [ESC] despues de haber iniciado su ejecuci6n con RUN. 

Los programas grabados por este procedimiento solo pueden ser ejecutados directamente, 
bien con la orden 

run "fichero" [RETURN] 

bien con 

chain "fichero" [RETURN] 

Siempre que se prevea la posibilidad de que m^ tarde se vaya a corregir o modificar un 
programa, se debe guardar una copia no protegida, esto es, grabada sin el sufijo ,p. 

Ficheros binarios 

save "fichero" ,b^irecc/6n-(n/c(a/,/ongitud-en-bytes 

[^unto-de-entrada-opc/ona/J [RETURN] 

Esta opcion permite realizar un volcado directo de datos desde la memoria RAM del orde- 
nador hacia el disco o la cinta. Ademas del sufijo ,b, es necesario indicar al ordenador 
en que direccidn de memoria empieza el bloque que se desea transferir, cudl es la longitud 
en bytes y, en su caso, en que direccion de memoria debe empezar la ejecuci6n cuando 
se cargue el fichero como programa. 
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Volcado de pantalla 

Este metodo de grabaci6n de ficheros binarios permite hacer un volcado de la memoria 
dedicada a la pantalla. El contenido de la pantalla se graba mediante la siguiente orden: 

save "volcpant",b,49152,16384 [RETURN] 

donde 49152 es la direccion en la que empieza la zona de memoria dedicada a la pantalla 
y 16384 es el tamaflo de esa zona en bytes. 

Para cargar nuevamente esos datos en el ordenador se escribe: 
load "volcpant" [RETURN] 



Copia de programas 



Paia. copiar programas de un disco a otro o de una cinta a otra utilizando las ordenes que 
hemos aprendido en esta seccidn, basta con hacer lo siguiente: cargar el programa en me- 
moria leyendolo del disco o la cinta original (fuente), sacar el disco o la cinta, insertar 
el disco o la cinta nuevos (destine) y grabar el programa. 
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Parte 8: Infroduccion a los modos de 
pantalla, colores y graficos 



El AMSTRAD 464/6128 puede funcionar en tres modos de pantalla: mode 0, modo 1 y 
modo 2. 

Al encenderlo, el ordenador selecciona automaticamente el modo 1. 

Para apreciar las diferencias entre los tres modos, encienda el ordenador y pulse la tecla 
del 1 . Mant^ngala pulsada hasta que se hayan Uenado dos lineas de psmtalla. Si cuenta 
los unos, observ£u-a que hay 40 en cada li'nea. Esto quiere decir que en modo 1 la pantalla 
tiene 40 columnas. Pulse [RETURN]: el ordenador respondera con un mensaje de Syntax 
error, pero no se preocupe; esta es una forma rapida de obtener nuevamente el mensaje 
Ready, que indica que el ordenador estd preparado para recibir nuestras instrucciones. 

Escriba ahora: 

mode [RETURN] 

Observara que ahora los caracteres son mas grandes. Pulse otra vez la tecla del 1 y no 
la suelte hasta que se hayan llenado dos Imeas de la pantalla. Compruebe que ahora hay 
20 unos por linea. Esto significa que en modo la pantalla tiene 20 columnas. Pulse nue- 
vamente [RETURN] y luego escriba: 

mode 2 [RETURN] 

Observe que ahora los caracteres son muy pequenos. Puede comprobar que en modo 2 
la pantalla tiene 80 columnas. 

Resumiendo, 

Modo -» 20 columnas 
Modo 1 -+ 40 columnas 
Modo 2 -* 80 columnas 

Finalmente, vuelva a pulsar [RETURN]. 
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Colores 



Este ordenador puede manejar 27 colores. En el monitor monocromatico (MM12) apare- 
cen como distintas gradaciones de gris. 

En modo se puede visualizar simultdneamente 16 de los 27 colores disponibles. 
En modo 1 se puede visualizar simultdneamente 4 de los 27 colores. 
En modo 2 se puede visualizar simultdneamente 2 de los 27 colores. 

Se puede controlar los colores del borde, del papel (fondo) y de la pluma (trazo) indepen- 
dientemente unos de otros. 

Los 27 colores disponibles son los relacionados en la tabla 1, en la que incluimos tambien 
los mimeros de referenda para la instruccibn INK (tinta). 

Para mayor comodidad, esta tabla aparece tambien en la cju-casa del ordenador, al lado 
derecho. 



Numero 




Numero 




Numero 




de tinta 


Color 


de tinta 


Color 


de tinta 


Color 





Negro 


9 


Verde 


18 


Verde intenso 


1 


Azul 


10 


Cyan 


19 


Verde mar 


2 


Azul intense 


11 


Azul celeste 


20 


Cyan intenso 


3 


Rojo 


12 


Amarillo 


21 


Verde lima 


4 


Magenta 


13 


Blanco 


22 


Verde pastel 


5 


Malva 


14 


Azul pastel 


23 


Cyan pastel 


6 


Rojo intenso 


15 


Anaranjado 


24 


Amarillo intenso 


7 


Morado 


16 


Rosado 


25 


Amarillo pastel 


8 


Magenta intenso 


17 


Magenta pastel 


26 


Blanco intenso 



Tabla 1. Niimeros de tinta y colores asociados. 



Como hemos dicho, el ordenador se pone automaticamente en modo 1 al encehderlo. Pa- 
ra volver a modo 1 estando en cualquier otro, basta con escribir: 

mode 1 [RETURN] 
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La pantalla 



El borde (BORDER) es el irea que rodea el papel (PAPER). (Cuando se enciende el orde- 
nador, el borde y el papel son ambos azules.) Los caracteres que escribimos en la pantalla 
s61o puede estar en la regi6n interior al borde. El papel es el fondo sobre el que la pluma 
(PEN) escribe los caracteres. 




PEN 



BORDER 
PAPER 



Vamos a explicar c6nio se realiza la selecci6n de los colores. 

Cuando se enciende o reinicializa el ordenador, este selecciona automiticamente el color 
niimero 1 para el borde. Como puede comprobar en la tabla 1, el color numero 1 es el 
azul. El color del borde se puede cambiar mediante la orden BORDER seguida del nume- 
ro del color deseado. Por ejemplo, escriba: 

border 13 [RETURN] 

Esto es fdcil, pero en el interior de la pantalla las cosas son algo mas complicadas: 

Cuando se enciende o reinicializa la maquina, el numero de papel seleccionado automdti- 
camene es el 0, y el de la pluma es el 1. Esto no quiere decir que los colores correspondien- 
tes scan los que figuran en la tabla anterior con los niimeros y 1 . 

Lo que ocurre es que el y el 1 son niimeros de papel y de pluma, no numeros de tinta. 
Vamos a explicarnos. Supongamos que tenemos en nuestra mesa cuatro plumas, nume- 
radas del al 3, y 27 tinteros, numerados del al 26. Es evidente que cuando decimos 
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'pluma numero 1' no necesariamente estamos refiriendonos al color numero 1. La pluma 
niimero 1 puede estar cargada con tinta de cualquier color; de hecho, podemos tener las 
cuatro plumas cargadas con la misma tinta. 

Pues bien, algo similar ocurre en el ordenador. Con la instruccion PEN (pluma) podemos 
elegir la pluma con la que vamos a escribir; la instruccion INK (tinta) nos permite 'cargar' 
esa pluma con tinta del color deseado. 

Recordando que estamos en modo 1 (40 columnas), consulte la tabla 2 y comprobard que 
la pluma numero 1 esta cargada inicialmente con tinta de color 24. Pero el color 24 es, 
como podemos ver en la tabla 1, amarillo intense: el color con que se escriben los caracte- 
res cuando acabamos de encender el ordenador. 



Numero de 


Color de tinta 


Color de tinta 


Color de tinta 


papel/pluma 


Modo 


Modo 1 


Modo 2 





1 


1 


1 


1 


24 


24 


24 


2 


20 


20 


1 


3 


6 


6 


24 


4 


26 


1 


1 


5 





24 


24 


6 


2 


20 


1 


7 


8 


6 


24 


8 


10 


1 


1 


9 


12 


24 


24 


10 


14 


20 


1 


11 


16 


6 


24 


12 


18 


1 


1 


13 


22 


24 


24 


14 


Parpadeo 1,24 


20 


1 


15 


Parpadeo 16,11 


6 


24 



Tabla 2. Asignaddn inicial de tintas a los papeles y las plumas. 

Las relaciones entre papel, plimia y tinta no son fijas. Los vedores que se muestran en la 
tabla 2 son los seleccionados automaticamente en el momento de encender la maquina. 
Se los puede cambiar mediante la instrucci6n INK (tinta). Esta instrucci6n va seguida de 
dos niimeros (parametros). El primero es el numero de papel o de pluma que vamos a car 
gar; el segundo es el color con que vamos a cargarlo. Los parametros van separados por 
una coma. 
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Puesto que estamos utilizando la pluma niimero 1, v2imos a cambiar el color de tinta co- 
rrespondiente: la cargaremos con tinta de color anaranjado. Escriba: 

ink 1,15 [RETURN] 

Los caracteres ban cambiado instantaneamente de color. 

Tambien vamos a cambiar el color del fondo mediante la instrucci6n INK. Sabemos que 
el niimero de papel seleccionado al encender la maquina es el 0; vamos a cambiar el color 
a verde (color niimero 9) escribiendo: 

ink 0,9 [RETURN] 

Ahora vamos a cambiar de pluma. Escriba: 

pen 3 [RETURN] 

El color de los caracteres ya escritos no ha cambiado. Esta instrucci6n afecta solamente 
a los que escribamos a continuacion. En este momento estamos utilizando la pluma niime- 
ro 3. Como puede comprobar en las tablas 1 y 2, la tinta con que esta pluma esta cargada 
inicialmente es la de color niimero 6 (rojo intenso). Para cambiarla a rosado escriba: 

ink 3,16 [RETURN] 

Recuerde que el 3 es el color de la pluma (seleccionado con la anterior instruccion pen 
3) y que el 16 es el color de la tinta con que la cargamos (rosado). 

Cambiemos ahora de papel. Cuando lo hagamos, el anterior color de fondo no cambiar^, 
porque ese color ha sido impreso con otro papel. Escriba lo siguiente: 

paper 2 [RETURN] 

Consultando nuevamente las tablas 1 y 2, compruebe que el color inicialmente asignado 
al papel niimero 2 es cyan intenso. Cambielo a negro escribiendo: 

ink 2,0 [RETURN] 

En este momento, en la pantalla tenemos caracteres escritos por las plumas 1 y 3, sobre 
fondos de papel niimeros y 2. Tambien se puede cambiar el color de la tinta de una plu- 
ma o de un papel que no esten siendo utilizados. Por ejemplo, escriba la orden: 

ink 1,2 [RETURN] 
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que cambia el color de todos los caracteres que habiamos escrito antes con la pluma nume- 
ro 1. 

Escriba: 

els [RETURN] 

para borrar la pantalla. 

El lector ya deberia ser capaz de hacer que el ordenador vuelva a los colores iniciales (hor- 
de y fondo azul y caracteres amarillos) utilizando las instrucciones BORDER, PAPER, 
PEN e INK. Intentelo. Si no lo consigue, reinicialice el ordenador con [CONTROU [MAYSl 
[ESC]. 



Colores parpadeantes 



Es posible hacer que una tinta cambie intermitentemente de color. Para eUo se debe afiadir 
otro numero a la instrucci6n INK que asigna tintas a la pluma utilizada. 

Vamos a hacer que los caracteres que escribamos altemen entre los colores bianco intenso 
y rojo intenso. Reinicialice la mdquina con [CONTROL] [MAYS] [ESC] y escriba lo 
siguiente: 

ink 1,26,6 [RETURN] 

En este caso el 1 es el numero de la pluma, el 26 es el del color bianco intenso y el 6 es 
el del segundo color, rojo intenso. 

El mismo efecto de parpadeo se puede dar a los colores del fondo, para lo cual se aiiade 
un segundo numero de color a la instrucci6n INK que asigna tintas al papel actual. Para 
hacer que el color del fondo alterne entre verde y amarillo intenso escriba: 

ink 0,9,24 [RETURN] 

En este caso es el numero del papel, 9 es el numero del color verde y 24 es el numero 
del segundo color, el amarillo intenso. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

Observe en la tabla 2 que en modo hay dos numeros de pluma y dos numeros de papel, 
el 14 y el 15, que tienen asignadas tintas parpadeantes. Es decir, sus correspondientes tin- 
tas estan preprogramadas con un color adicional. 
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Escriba lo siguiente: 

mode [RETURN] 
pen 15 [RETURN] 

y vera en la pantalla la palabra Ready parpadeando entre azul celeste y rosado. Escriba 
ahora: 

paper 14 [RETURN] 
els 

El texto continua parpadeando como antes, pero ademas el fondo ha empezado a alternar 
entre los colores amarillo y azul. 

Los niimeros de pluma y de papel 14 y 15 pueden ser reprogramados, mediante la adecua- 
da instraccion INK, para que parpadeen con otras tintas o bien para asignarles un color 
fijo. 

Finalmente, se puede hacer parpadear el borde sin mds que especificar un segundo niime- 
ro de color en la instrucci6n BORDER. Escriba: 

border 6,9 [RETURN] 

El borde esta parpadeando entre los colores rojo intense y verde. Observe que al borde 
se le puede asignar uno o dos colores cualesquiera de los 27 disponibles, independiente- 
mente del modo en que este la pantalla (0, 1 o 2). 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

Introduzca y ejecute el siguiente programa, que demuestra los colores disponibles. 

10 MODE [RETURN] 

20 velocidad=600: REM establece velocidad del 

programa [RETURN] 
30 FOR b=0 TO 26 [RETURN] 
40 LOCATE 1.12 [RETURN] 
50 BORDER b [RETURN] 
60 PRINT "color del borde:";b [RETURN] 
70 FOR t=1 TO velocidad [RETURN] 
80 NEXT t,b [RETURN] 
90 CLG [RETURN] 
100 FOR p=0 TO 15 [RETURN] 
110 PAPER p [RETURN] 
120 PRINT" papel:" ;p [RETURN] 
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130 FOR n=0 TO 15 [RETURN] 

140 PEN n [RETURN] 

150 PRINT "pluma:";n [RETURN] 

160 NEXT n [RETURN] 

170 FOR t=1 TO velocidad*2 [RETURN] 

180 NEXT t,p [RETURN] 

190 MODE 1 [RETURN] 

200 BORDER 1 [RETURN] 

210 PAPER [RETURN] 

220 PEN 1 [RETURN] 

230 INK 0,1 [RETURN] 

240 INK 1,24 [RETURN] 

run [RETURN] 



OBSERVACION MUY IMPORTANTE 

En este programa, asi como en otros capitulos y listados de este manual, las palabras 
clave de BASIC aparecen en mayiisculas, pues el ordenador convierte automatica- 
mente minusculas a mayusculas cuando se le pide que haga un listado del progrjuna 
(con LIST). En general, es preferible escribir las instrucciones en minusculas; esto 
ayudard mas tarde a detectar errores, ya que las palabras clave de BASIC que conten- 
gan algiin error no seran convertidas a mayusculas. 

En lo que resta de este 'Curse de introduccion' deuemos los listados indistintamente 
en mayusculas y minusculas, para que usted se familiarice con esta caracteristica de 
BASIC. 

Los nombres de las VEuiables, tales como x o a$, no son convertidos a mayusculas 
al listar el programa. Sin embargo, el ordenador reconoce las vmables tanto si estan 
en mayusculas como si estan en minusculas; de hecho, para el ordenador x es la mis- 
ma variable que X. 



Atencion 

A partir de ahora no vamos a seguir recordandole que debe pulsar [RETURN] al ter- 
minar de escribir cada Unea de programa y cada orden directa, pues suponemos que 
usted ya esta suficientemente habituado a hacerlo. 
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Graficos 

En la memoria del ordenador esta pregrabado el diseno de cierto niimero de caracteres. 
Para escribirlos en la pantalla necesitamos la palabra clave: 

chr$( ) 

Dentro de los parentesis se pone el niimero del cardcter, que debe estar en el margen de 

32 a 255. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y escriba lo siguiente: 

print chr$(250) 

No olvide pulsar [RETURN]. En la pantalla ha aparecido el caracter niimero 250, que es 
la figura de un hombre caminando hacia la derecha. 

Para ver todos los caracteres y simbolos, junto con su niimero correspondiente, introduz- 
ca y ejecute el siguiente programa (recuerde que debe pulsar [RETURN] al final de cada 
li'nea): 

10 for n =32 to 255 
20 print chr$(n) 
30 next n 
run 

Todos estos caracteres y niimeros figuran en el capitulo 'Para su referenda . . .'. 

LOCATE 

Esta instruccion sirve para colocar el cursor en un lugar especificado de la pantalla. A 
menos que se lo mueva con una instruccion LOCATE, el punto de partida del cursor es 
el extremo superior izquierdo de la pantalla, punto de coordenadas 1.1 (en el sistema de 
coordenadas x, y, donde x es la posici6n horizontal e y es la vertical). En modo 1 hay 
40 columnas y 25 filas (o lineas). Asi, para colocar el cursor en el centro de la primera 
h'nea, tendremos que utilizar 20,1 como coordenadas x.y. 
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Teclee lo siguiente (sin olvidar pulsar [RETURN] al final de cada h'nea): 
mode 1 ... borra la pantalla y Ueva el cursor al extremo superior izquierdo 

10 locate 20,1 
20 print chr$(2S0) 
run 

Para comprobar que el caracter estd en la primera linea, cambiemos el color del border 
border 

El borde es ahora negro y podemos ver que el hombrecillo esti en el centro de la linea 
superior. 

En modo solo hay 20 columnas, pero las mismas 25 lineas. Si ahora escribe: 

mode 
run 

vera que el hombre se ha ido al extremo superior derecho de la pantalla. Esto ha ocurrido 
porque la coordenada x = 20 es la ultima columna en modo 0. Escriba: 

mode 2 
run 

Vuelva a modo 1 con: 

mode 1 

Ahora pruebe usted con diferentes posiciones en locate y diferentes numeros en chr$( ). 
Por ejemplo, escriba: 

locate 20,12: print chr$(240) 

y vera una flecha en el centro de la pantalla. Observe que en esta instrucci6n: 

20 es la coordenada x (horizontal) (margen: 1 a 40) 
12 es la coordenada y (vertical) (margen: 1 a 25) 
240 es el niimero del caracter (margen: 32 a 255) 
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Para mover el cardcter 250 de izquierda a derecha de la pantalla, escriba lo siguiente: 

10CLS 

20 FOR x=1 TO 39 

30 LOCATE x,20 

50 PRINT CHR$(250) 

60 NEXT X 

70 GOTO 10 

run 

Pulse [ESC] dos veces para abandonar el programa. 

Si queremos borrar el cardcter reci6n escrito antes de escribir el siguiente, debemos hacer 

50 print" ";chr$(250) 

(Esta nueva linea 50 reemplaza automdticamente la que tem'amos antes.) Escriba: 

run 

FRAME 

Para mejorar la ilusion de movimiento del cardcter por la pantalla, aflada al programa 
anterior la siguiente linea: 

40 frame 

La instruccion FRAME sincroniza el movimiento de objetos por la pantalla con la fre- 
cuencia a la que se envian las imagenes al monitor. La explicaci6n es demasiado tecnica, 
pero basta con que recordemos que esta instrucci6n se debe utilizar siempre que queramos 
mover objetos suavemente por la pantalla. 

Este programa se puede mejorar introduciendo pausas y utilizando un simbolo distinto 
para el retroceso. 

Escriba: 
list 
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y anada las siguientes lineas: 

70 FOR n=1 TO 300:NEXT n 

80 FOR x=39 TO 1 STEP -1 

90 LOCATE x,20 

100 FRAME 

110 PRINT CHR$(251);" " 

120 NEXT X 

130 FOR n=1 TO 300:NEXT n 

140 GOTO 20 

run 



PLOT 

La instruccion PLOT es analoga a LOCATE, pero controla la posici6n del cursor grafico 
y utiliza un sistema de coordenadas distinto, en el que las distancias se miden en pixels 
(un pixel, opunto grdfico, es la minima area de la pantalla controlable individualmente). 

EI cursor grafico es invisible, y distinto en todos los aspectos del cursor de texto. 

La pantalla se divide en 640 puntos en horizontal por 400 en vertical. Las coordenadas 
X, y se toman con respecto al extremo inferior izquierdo de la pantalla, que es el punto 
de coordenadas 0. 0. A diferencia de lo que ocurria con LOCATE, las coordenadas de este 
sistema no dependen del modo de pantalla (0, 1 o 2). 

Para comprobarlo, reinicialice la mdquina con [CONTROL] [MAYS] [ESC] y escriba: 
plot 320,200 

Observe el punto que ha aparecido en el centro de la pantalla. 
Hagamos lo mismo en modo 0: 

mode 
plot 320,200 

El punto sigue estando en el centro de la pantalla, pero es mas grande. Para ver el efecto 
en modo 2 escriba: 

mode 2 
plot 320,200 

Como era de esperar, el punto sigue centrado, pero es mucho mas pequeno. 
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Dibuje unos cuantos puntos en diversos lugares de la pantalla y en modos distintos para 
familiarizarse con esta instruccion. Cuando haya terminado, escriba: 

mode 1 

para volver a modo 1 y borrar la pantalla. 

DRAW 

Reinicialice la maquina con [CONTROL] [MAYS] [ESC]. La instruccion DRAW dibuja 
una recta.a partir de la posicion actual del cursor grafico. Para verla en accion, dibuje 
un rectangulo con el siguiente programa: 

5 els 

10 plot 10,10 
20 draw 10,390 
30 draw 630,390 
40 draw 630,10 
50 draw 10,10 
60 goto 60 
run 

En la linea 10 la instruccion PLOT coloca el cursor en el punto de partida deseado. A con- 

tinuaci6n, las instrucciones DRAW van dibujando segmentos de recta: hacia arriba, hacia 

la derecha, etc. 

Pulse [ESC] dos veces para abandonar el programa. 

(Observe la linea 60 de este programa. Esta linea establece un bucle infinito, del que solo 

se sale deteniendo el programa. Una instruccion de este tipo es vitil cuando se quiere evitar 

que el ordenador exhiba el mensaje Ready al terminar el programa.) 

Anada al programa las siguientes lineas, las cuales dibujan un segundo rectangulo dentro 

del anterior: 

60 plot 20,20 
70 draw 20,380 
80 draw 620,380 
90 draw 620,20 
100 draw 20,20 
110 goto 110 
run 

Pulse [ESC] dos veces para detener el programa. 
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MOVE 

Esta instruccion funciona igual que PLOT en cuanto a llevar el cursor grdfico a la posicion 
especificada, pero no dibuja el punto. 

Escriba: 

els 

move 639,399 

Aunque no podamos verlo, hemos llevado el cursor al extremo superior derecho de la 
pantalla. 

Para demostrarlo, vamos a dibujar una recta desde ese punto hasta el centro de la panta- 
lla. Escriba: 

draw 320,200 



Circunferencias 



Las circunferencias se pueden dibujar punto a punto o con trazo continue. Una forma 
de dibujar una circunferencia consiste en dibujar puntos en las posiciones correctas. En 
la figura siguiente se ilustra c6mo se calculan las coordenadas x, y de un punto p de la 
circunferencia. Las formulas son: 



x=190*cos(a) 
y=190*sin(a) 



/ 



BORDE DE 
LA PANTALLA 



320 
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Dibujo de una circunferencia 

En los programas anteriores hemos referido todos los dibujos al extremo inferior izquier- 
do de la pantalla. Si queremos que nuestra circunferencia quede centrada en la pantalla, 
debemos situar su centre en el punto de coordenadas 320,200, y luego sumar a estos valo- 
res los dados por las formulas anteriores. 

El siguiente programa dibuja punto a punto una circunferencia: 

new 

10 CLS 

20 DEG 

30 FOR a=1 TO 360 

40 MOVE 320,200 

50 PLOT 320+190*COS(a),200+190*SIN(a) 

60 NEXT 

run 

Observe que hemos dado la orden NEW antes de introducir el programa. Esta orden hace 
que el ordenador borre el programa que en ese momento tenga en la memoria (de forma 
similar a lo que ocurre cuando se pulsa [CONTROL] [MAYS] [ESC]). Sin embargo, la 
pantalla no se borra. 

El radio de la circunferencia se puede reducir poniendo en lugar de 190 un numero menor 
de pixels. 

Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la linea 
20 escribiendo: 

20 

En lugar de punto a punto, podemos dibujar la circunferencia con trazo continuo. Modi- 
fique la linea 50 para poner draw en lugar de plot. La linea sera entonces: 

50 draw 320+190*cos(a),200+190*sin(a) 

Pruebe esta modificaci6n con la linea 20 y sin ella. 

Observe que en la linea 60 de este programa hemos puesto NEXT en lugar de NEXT a. 
En efecto, se puede omitir el nombre de la variable, pues el ordenador se encjirga de averi- 
guar a qa€ FOR corresponde cada NEXT. No obstante, en los programas en los que haya 
muchos bucks FOR ... NEXT, puede ser conveniente poner los nombres de las variables 
despues de NEXT para que el programa sea mas inteUgible cuando se lo este corrigiendo 
o estudiando. 
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ORIGIN 

En el programa anterior utilizabamos la instruccion MOVE para establecer el centre de 
la circunferencia y luego sumabamos a las coordenadas del centre las coordenadas de los 
puntos de la circunferencia. Podemos evitar esas sumas si redefinimos la posicion del ori- 
gen de coordenadas con la instrucci6n ORIGIN. El ordenador entendera las coordenadas 
que se le suministren a continuacion como referidas al nuevo origen. Escriba lo siguiente: 

new 

10 els 

20 for a=1 to 360 

30 origin 320,200 

40 plot 190*cos(a),190*sin(a) 

50 next 

run 

El siguiente programa dibuja cuatro circunferencias mas pequenas: 

new 

10CLS 

20 FOR a=1 TO 360 

30 ORIGIN 196,282 

40 PLOT 50*COS(a),50*SIN(a) 

50 ORIGIN 442,282 

60 PLOT 50*COS(a),50*SIN(a) 

70 ORIGIN 196,116 

80 PLOT 50*COS(a),50*SIN(a) 

90 ORIGIN 442,116 

100 PLOT 50*COS(a),50*SIN(a) 

110 NEXT 

run 

Otra forma de dibujar la circunferencia (con trazo continuo) es la siguiente: 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0,190 

50 FOR a=0 TO 360 STEP 10 

60 DRAW 190*SIN(a),190*COS(a) 

70 NEXT 

run 
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En este caso se van dibujando pequenos segmentos de recta, de un punto al siguiente de 
la circunferencia. Este metddo es mucho mas rapido que el de dibujo punto a punto. 

Observe una vez mas el efecto de la instruccidn DEG: suprima la li'nea 30 y ejecute el 
programa. 

FILL 

La instruccion FILL (rellenar) se utiliza para rellenar una region de la psmtalla que este 
delimitada por graficos o por los bordes de la pantalla. 

Reinicialice la maquina con [CONTROL] [MAYS] [ESC] y luego escriba: 

new 

10 els 

20 move 20,20 

30 draw 620,20 

40 draw 310,380 

50 draw 20,20 

run 

En la pantalla ha aparecido un triangulo. Lleve el cursor grafico al centro de la pantalla 
con la orden 

mode 320,200 

Vamos a utilizar la instrucci6n FILL seguida de un niimero de pluma, por ejemplo el 3, 
para rellenar con la tinta de la pluma especificada el recinto cerrado en que se encuentra 
el cursor. Escriba lo siguiente: 

fill 3 

Lleve el cursor al exterior del triangulo con la orden 

move 0,0 
Observe que ocurre cuando escriba: 

fill 2 

El ordenador ha usado la pluma mimero 2 para rellenar la zona delimitada por el dibujo 
y los bordes de la pantalla. 
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Modifique ahora el programa escribiendo las lineas sigiiientes y vea que ocurre: 

50 draw 50,50 
60 move 320,200 
70 fill 3 
run 

La tinta 'rezuma' por la ranuras. 

Veimoslo con otro ejemplo. Rellenemos una circunferenda dibujada punto a punto: 

new 

10CLS 

20 FOR 8=1 TO 360 

30 ORIGIN 320,200 

40 PLOT 190*COS(a),190*SIN(a) 

50 NEXT 

60 MOVE -188,0 

70 FILL 3 

run 

Pruebe ahora con: 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0,190 

50 FOR d=0 TO 360 STEP 10 

60 DRAW 190*SIN(d),190*COS(d) 

70 NEXT 

80 MOVE -188,0 

90 FILL 3 

run 

Pjira hacer que el borde del circulo sea invisible, dibujamos la circunferencia con tinta 
del mismo color que la del papel. Aiiada la siguiente linea: 

46 GRAPHICS PEN 2:INK 2,1 
run 
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La instrucci6n GRAPHICS PEN selecciona la pluma que haya de ser utilizada para dibu- 
jar grdficos. La instniccidn INK especifica el color de tinta para esa pluma, que en este 
caso coincide con el color del papel (color numero 1). 

Finalmente, introduzca y pruebe el siguiente programa: 

new 

10 MODE 0:BORDER 13 

20 MOVE 0,200: DRAW 640,200 

30 FOR x=80 TO 560 STEP 80 

40 MOVE x,0:DRAW x,400 

50 NEXT:MOVE -40,300 

60 FOR c=0 TO 7 

70 MOVER 80,0:FILL c 

80 MOVER 0,-200:FILL c+8 

90 MOVER 0,200:NEXT 

100 GOTO 100 

run 

Tambi^n se puede cambiar los colores de las zonas rellenadas: 

100 SPEED INK 30,30 

110 BORDER RND*26,RND*26 

120 INK RND*15,RND<i'26,RND*26 

130 FOR t=1 TO 500:NEXT:GOTO 110 

run 



Otros detalles . . 



En la secci6n 'Dicho grificamente', del capitulo titulado 'Cuando usted guste . . . ', dare- 
mos una explicaci6n miis detallada de los grdficos del CPC6128. 

Para concluir esta seccion, le ofrecemos unos programas de demostraci6n de grdficos que 
incorporan muchas instrucciones que el lector ya deberia entender. Todos ellos dibujan 
figuras en la pantalla continuamente. 

10 BORDER 0:GRAPHICS PEN 1 
20 m=CINT(RND*2):M0DE m 
30 i1=RND*26:i2=RND*26 
40 IF ABS(i1-l2)<10 THEN 30 
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50 INK0,i1:INK1,i2 

60 s=RND*5+3:ORIGiN 320,-100 

70 FOR x=-1000 TO STEP s 

80 MOVE 0,0:DRAW x,300:DRAW 0,600 

90 MOVE 0,0:DRAW -x,300:DRAW 0,600 

100 NEXT:FOR t=1 TO 2000: NEXT: GOTO 20 

run 



10 MODE 1:BORDER 0:PAPER 

20 GRAPHICS PEN 2:INK 0,0:i=14 

30 EVERY 2200 GOSUB 150 

40 indicador=0:CLG 

50 INK 2,14+RND*12 

60 b%=RND*5+1 

70 c%=RND*5+1 

80 ORIGIN 320,200 

90 FOR a=0 TO 1000 STEP PI/30 

100 x%=100*COS(a) 

110 MOVE x%,y% 

120 DRAW 200*COS(a/b%),200*SIN(a/c%) 

130 IF lndlcador=1 THEN 40 

140 NEXT 

150 indicador=1:RETURN 

run 



10 MODE 1:B0RDER 0:DEG 

20 PRINT "Por favor, espere" 

30 FOR n=1 to 3 

40 INK 0,0:INK 1,26:INK 2,6:INK 3,18 

50 IF n=1 THEN sa=120 

60 IF n=2 THEN sa=135 

70 IF n=3 THEN sa=150 

80 IF n=1 THEN ORIGIN 0,-50,0,640,0,400 ELSE ORIGIN 0,0,0,640,0,400 

90 DIM cx(5),cy(5),r(5),lc(5) 

100 DIM np(5) 

110 DIM px%{5,81),py%(5,81) 

120 st=1:cx(1)=320:cy(1)=200:r(1)=80 

130 FOR st=1 TO 4 

140 r{st+1)=r(st)/2 
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150 NEXT St 

160 FOR st=1 TO 5 

170 lc(st)=0:np(st)=0 

180 np(st)=np(st)+1 

190px%(st,np(st))=r(st)*SiN(lc(st)) 

200py%(st,np{st))=r(st)*COS(lc(st)) 

210 lc(st)=lc(st)+360/r(st) 

220 IF lc(st)<360 THEN 180 

230 px%(st,np{st)+1)=px%{st,1) 

240 py%(st,np(st)+1)=py%(st.1) 

250 NEXT St 

260 CLS:cj=REMAIN(1):cj=REMAIN(2) 

270 cj=REMAIN(3):INK 1,2:st=1 

280 GOSUB 350 

290 LOCATE 1,1 

300 EVERY 25,1 GOSUB 510 

310 EVERY 15,2 GOSUB 550 

320 EVERY 5,3 GOSUB 590 

330 ERASE cx,cy,r,lc,np,px%.py%:NEXT 

340 GOTO 340 

350 cx%=cx(st):cy%=cy(st):lc(st)=0 

360 FOR x%=1 TO np{st) 

370 MOVE cx%.cy% 

380 DRAW cx%+px%(st,x%),cy%+py%(st.x%),1+(st MOD 3) 

390 DRAW cx%+px%(st,x%+1),cy%+py%{st,x%+1),H-(st 

MOD 3) 
400 NEXT x% 
410 IF st=5 THEN RETURN 
420 lc(st)=0 

430cx{st+1)=cx(st)+1.5*r(st)*SIN(sa+lc(st)) 
440 cy(st+1)=cy(st)+1.5*r(st)*COS(sa+lc{st)) 
460 st=st+1 
460 GOSUB 350 
470 st=st-1 
480 lc(st)=lc(st)+2*sa 
490 IF (lc(st) MOD 360)<>0 THEN 430 
500 RETURN 
510 ik(1)=1+RND*25 

520 IF ik|1)=ik{2) OR ik(1)=ik(3) THEN 510 
530 INK 1,ik(1) 
540 RETURN 
550 ik(2)=1+RND*25 
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560 IF ik(2)=ik(1) OR ik(2)=ik(3) THEN 550 

570 INK 2,ik(2) 

580 RETURN 

590 ik(3)=1+RND*25 

600 IF ik(3)=ik(1) OR lk(3)=ik(2) THEN 590 

610 INK 3,ik(3) 

620 RETURN 
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Parte 9: Sonidos 



El ordenador emite su sonido a traves de un par de altavoces estereo situados en el mo- 
nitor. 

El nivel de sonido se ajusta con el mando de volumen que hay en el panel frontal del moni- 
tor. Tambien es posible enviar el sonido a un amplificador externo, por medio de la salida 
marcada con STEREO en el ordenador. En la parte 2 de este 'Curso de introducci6n' se 
explica c6mo tomar las senales de la salida STEREO del ordenador. 



La instruccion SOUND 



La instrucci6n SOUND tiene siete pardmetros. Los dos primeros son imprescindibles, 
mientras que los restantes son opcionales. La forma de la instruccibn es la siguiente: 

SOUND s/tuacidn-de-cana/es.periodo-de-tono,durac/6n,vo/umen. 

en vo/vente-de- vo/umen ^n vo/vente-de-tono ,per/odo-de-ru/do 

Parece complicada a primera vista, pero veremos que en realidad no lo es tanto cuando 
hayamos analizado el significado de todos los pardmetros. Asi pues, estudiemos los para- 
metros uno por uno. 

Situacion de los canales 

Para no complicar las cosas, por ahora nos limitaremos a considerar este parametro como 
simple selector de csmales. Hay tres canales de sonido; de momento s61o utilizaremos el 
niimero 1. 



Periodo de tono 

El periodo de tono es la forma tecnica de especificar el tono del sonido; en otras palabras, 
de identificar la nota (DO, RE, MI, FA, etc.). Cada nota tiene un niimero de identifica- 
cion, que es el periodo de tono. Si consulta el capitulo 'Para su referenda. . . ', comproba- 
ra que la nota DO media tiene un periodo de tono de 239. 
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Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y luego escriba: 

10 sound 1,239 
run 

Acaba de oir la nota DO media, que ha sonado durante 0.2 segundos. 

iNo ha oido nada? Suba el control de volumen del ordenador y vuelva a ejecutar el pro- 
grama. 

Duracion 

Este parametro especifica la duraci6n del sonido. Las unidades son de centesimas de se- 
gundo (0.01 s). Si no se especifica duracion, el ordenador toma el valor imph'cito para 
este pardmetro, que es 20; por eso la nota que acaba de oir ha durado 0.01x20=0.2 
segundos. 

Si queremos que la nota dure 1 segundo, el valor del parametro tendra que ser 100; para 
dos segundos, 200; etc. Escriba lo siguiente: 

10 sound 1,239,200 
run 

Acaba de oir la nota DO media con duraci6n de 2 segundos. 

Volumen 

Este parametro especifica el volumen de la nota. El margen de valores va de a 15. El 
'volumen' es el minimo; el 15 es el mdximo. Si no se especifica ningiin valor, el ordena- 
dor toma el imph'cito, que es 12. Escriba lo siguiente: 

10 sound 1,239,200,5 
run 

Fijese en el volumen de este sonido y compdrelo con el siguiente: 

10 sound 1,239,200,15 
run 

Como puede observar, es mucho mds intense que el anterior. 
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Envolvente de volumen 

Se puede hacer que el volumen de una nota no sea constante, sino que varie con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variacion del volumen en fun- 
ci6n del tiempo necesitamos otra instruccion: ENV. De hecho, podemos definir varias en- 
volventes de volumen distintas, cada una de las cuales tendra su mimero de referenda. 
Asi, si hemos definido la envolvente de volumen mimero 1, podemos utilizarla poniendo 
en la instrucci6n SOUND el mimero 1 como pardmetro de envolvente de volumen. En 
seguida explicaremos c6mo se definen las envolventes de volumen. 

Envolvente de tono 

Se puede hacer que el tono de una nota no sea constante, sino que varie con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variaci6n del tono en funcion 
del tiempo necesitamos otra instrucci6n: ENT. De hecho, podemos definir varias envol- 
ventes de tono distintas, cada una de las cuales tendra su mimero de referenda. Asi, si 
hemos definido la envolvente de tono numero 1, podemos utilizarla poniendo en la ins- 
truccion SOUND el numero 1 como parametro de envolvente de tono. En seguida explica- 
remos c6mo se definen las envolventes de tono. 



Ruido 

El periodo de ruido es el ultimo parametro de la instrucci6n SOUND. Las caracteristicas 
del ruido se pueden variar eligiendo para este parametro un valor comprendido entre 1 
y 31 . Ponga el valor 2 en la instruccion SOUND y escuche el efecto. Ponga luego el mime- 
ro 27 y observe la diferencia. Escriba: 

10 sound 1,239,200,15,„2 

En esta instrucci6n hemos dejado en bianco dos parametros (,„) porque aun no hemos 
creado ninguna envolvente de volimien ni de tono. 
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Definicion de una envolvente de volumen 

La instruccion que define envolventes de volumen es ENV. En su versi6n mas sencilla, 
esta instrucci6n Ueva 4 parametros. Su forma es la siguiente: 

ENVnumero-de-envo/vente,numero-de-esca/ones^/tura-de-cada-esca/dn, 
duraci6n-de-cada-escal6n 

Estudiemos los parametros uno por uno. 

IMumero de la envolvente 

Es el niimero de referenda (entre y 15) por el que la invocaremos en la instruccidn 
SOUND. 

Numero de escalones 

Este parametro especifica en cudntas etapas queremos que la nota evolucione antes de ter- 
minar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 etapas 
de 1 segundo cada una; en tal caso, el parametro 'niimero de escalones' tendria el vdor 
10. 

El margen de este pardmetro es de a 127. 

Altura de cada escalon 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un numero de 
unidades comprendido en y 15. Estos 16 niveles de sonido son los mismos que se definen 
en la instruccidn SOUND. Sin embargo, el margen del parimetro 'altura de escalon' es 
de -128 a +127; el nivel del volumen vuelve a cada vez que sobrepasa el 15. 

Duraci6n de cada escalon 

Este pardmetro especifica la duraci6n de cada escal6n en unidades de centesimas de segun- 
do. El margen de valores es de a 255; esto significa que la duraci6n maxima de cada 
escalon es de 2.56 segundos (el se considera como 256). 

Por consiguiente, el producto del parimetro 'numero de escalones' por el parametro 'du- 
racion de cada escalon' no deberia ser mayor que el pardmetro 'duraci6n' especificado 
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en la instrucci6n SOUND. De lo contrario, el sonido terminard antes de que se hayan 
completado todos los escalones de la envolvente. (En ese caso el ordendor ignora el resto 
del contenido de la envolvente.) 

Andlogamente, si la duraci6n especificada en SOUND es mayor que la impuesta por el 
producto de 'numero de escalones' por 'duraci6n de cada escalon', la nota continuara so- 
nando aunque se hayan terminado los escalones de la envolvente de volumen, y lo hard 
al nivel del ultimo escal6n de la envolvente. 

Para practicar con las envolventes de volumen, pruebe el siguiente programa: 

10 env 1,10,1,100 

20 sound 1,142,1000,1,1 

run 

La linea 20 especifica un sonido con numero de tono igual a 142 (LA internacional), dura- 
ci6n de 10 segundos, volumen inicial igual a 1 y envolvente de tono numero 1 , la cual con- 
siste en 10 escalones de altura 1 y duraci6n 1 segundo (100x0.01). 

Pruebe las siguientes formas de la h'nea 10 y trate de escuchar el efecto de las diferentes 
envolventes de volumen: 

10 env 1,100,1,10 
10 env 1,100,2,10 
10 env 1,100,4,10 
10 env 1,50,20.20 
10 env 1,50,2,20 
10 env 1,50,15,30 

Finalmente, pruebe la siguiente: 

10 env 1,50,2,10 

Observe que el volumen permanece constante durante la segunda mitad de la nota. Esto 
ocurre por que el numero de escalones es 50 y la duracidn de cada uno de ellos es 
0.1 s, con lo que la duraci6n total de la envolvente es de solamente 5 segundos, mientras 
que en la instrucci6n SOUND se especifica una duracion de 10 segundos. 

Haga usted otras pruebas y trate de generar sonidos diferentes. 

Si quiere crear envolventes mas complejas, puede repetir los tres ultimos pardmetros de 
la instruccion ENV para definir otras 'secciones' de la envolvente (hasta un mdximo de 
4 secciones). 
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Definicion de una envolvente de tono 

La instrucci6n que define envolventes de tono es ENT. En su version mas sencilla, esta 
instruccion lleva 4 pardmetros. Su forma es la siguiente: 

ENTnumero-de-envo/vente,numero-de-esca/ones^/tura-de-cada-esca/dn, 
durac/dn-de-cada-esca/dn 

Como siempre, estudiemos los parametros uno por uno. 

Numero de la envolvente 

Es el numero de referenda (entre y 15) por el que la invocaremos en la instruccion 
SOUND. 

Numero de escalones 

Este parametro especifica en cudntas etapas queremos que la nota evolucione antes de ter- 
minar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 etapjis 
de 1 segundo cada una; en tal c£iso, el pardmetro 'mimero de escalones' tendria el valor 
10. 

El margen de este parametro es de a 239. 

Periodo de tono de cada escalon 

En cada etapa, el tono puede variar con respecto al de la anterior en un numero de unida- 
des comprendido entre -128 y +127. Las variaciones negativas representan aumento del 
tono (tono mas agudo); las variaciones positivas reducen el tono (tono mas grave). El va- 
lor minimo del periodo de tono es 0. Tengalo en cuenta cuando programe envolventes de 
tono. En el capitulo 'Para su referenda . . . ' se da la lista completa de los periodos de 
tono. 

Duraoion de cada escalon 

Este parametro especifica la duracion de cada escal6n en unidades de centesimas de segun- 
do. El margen de valores es de a 255; esto significa que la duracidn maxima de cada 
escalon es de 2.56 segundos (el se considera como ffi6). 
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Por consiguiente, el producto del pardmetro 'niimero de escalones' por el pardmetro 'du- 
racion de cada escalon' no deberia ser mayor que el pardmetro 'duraci6n' especificado 
en la instruccion SOUND. De lo contrario, el sonido terminard antes de que se hayan 
completado todos los escalones de la envolvente. (En ese caso el ordenador ignora el resto 
del contenido de la envolvente.) 

Analogamente, si la duracion especificada en SOUND es mayor que la impuesta por el 
producto de 'niimero de escalones' por 'duracion de cada escalon', la nota continuard so- 
nando aunque se hayan terminado los escalones de la envolvente de tono, y lo hard con 
el tono correspondiente al de la ultima etapa de la envolvente. 

Para practicar con las envolventes de tono, pruebe el siguiente programa: 

10 ent 1,100,2,2 

20 sound 1,142,200,15„1 

run 

La linea 20 especifica un sonido con numero de tono igual a 142 (LA internacional), dura- 
ci6n de 2 segundos, volumen inicial igual a 15 (el mdximo), sin envolvente de volumen 
(pardmetro en bianco ,,) y con envolvente de tono numero 1 . 

En la linea 10 se define la envolvente de tono, la cual consiste en 100 escalones de altura 
2 (reducci6n del tono) y duraci6n 0.02 segundos (2x0.01). 

Pruebe las siguientes formas de la linea 10 y trate de escuchar el efecto de las diferentes 
envolventes de tono: 

10 ent 1,100,-2.2 
10 ent 1,10,4,20 
10 ent 1,10,-4,20 

Cambie ahora la instrucci6n sound y la envolvente de tono escribiendo: 

10 ent 1,2.17,70 

20 sound 1,71,140,15„1 

30 goto 10 

run 

Pulse [ESC] dos veces para detener el progrsuna. 
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Se puede combinar las instrucciones ENV, ENT y SOUND para crear sonidos mas com- 
plejos. Empiece con el siguiente programa: 

10 env 1,100,1,3 

20 ent 1,100,5,3 

30 sound 1,142,300,1,1,1 

run 

Cambie la b'nea 20 por la siguiente: 

20 ent 1,100,-2,3 
run 

Y finalmente pruebe el siguiente programa: 

10 env 1,100,2,2 

20 ent 1,100,-2,2 

30 sound 1,142,200,1,1,1 

run 

Si quiere crear envolventes mds complejas, puede repetir los tres ultimos parametros de 
la instrucci6n ENT para definir otras 'secciones' de la envolvente (hasta un maximo de 
4 secciones). 

Haga usted mismo otras pruebas. Por ejemplo, incluya ruido en la instrucci6n SOUND 
y aiiada mds secciones a las envolventes de volumen y de tono. 

En el capitulo 'Lista completa de las palabras clave del BASIC de AMSTRAD' explicare- 
mos con todo detalle las diversas instrucciones de sonido. Si le interesan los aspectos mas 
mel6dicos del sonido, consulte la secci6n 'El sonido de la musica' del capitulo titulado 
'Cuando usted guste . . .'. 
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Parte 10: Infroduccion a los sistemas 
operativos AMSDOS y CP/IVI 
(solo 6128) 

^Que es AMSDOS? 

AMSDOS es abreviatura de 'AMStrad Disc Operating System' (sistema operative de dis- 
co AMSTRAD). AMSDOS dispone de las siguientes funciones e instrucciones de manejo 
de ficheros, modificadas para utilizar la unidad de disco del 6128 en lugar de la unidad 
de cinta del 464: 

LOAD "fichero" 

RUN "fichero" 

SAVE "fichero" 

CHAIN "fichero" 

MERGE "fichero" 

CHAIN MERGE "fichero" 

OPENIN "fichero" 

OPENOUT "fichero" 

CLOSEIN 

CLOSEOUT 

CAT 

EOF 

INPUT #9 

LINE INPUT #9 

LIST #9 

PRINT #9 

WRITE #9 

Copia de discos con CP/M 

El contenido completo de un disco se puede copiar a otro utilizando el programa DISC- 
KIT (cara 1 del disco maestro de CP/M). 
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Puede utilizar el metodo que vamos a describir para copiar el propio disco maestro. 
Inserte el disco maestro de CP/M en la unidad, con la cara 1 hacia arriba, y escriba 

Icpm 

Cuando aparezca el mensaje A>, escriba 
disckit 

Al cabo de unos instantes vera aparecer en la pantalla el mensaje de presentacion de 
DISCKIT, seguido de 

One drive found 

Esto confirma que estamos ejecutando el programa de ayuda DISCKIT y que el ordena- 
dor ha detectado una unidad de disco (\a incorporada en la maquina). 

En cambio, si esta conectada la segunda unidad de disco, el mensaje serd: 

Two drives found 
En la parte inferior de la pantalla se puede ver el siguiente menu: 



Copy 


7 




Copiar 


Format 


4 


Inicializar 


Verify 


1 


Verificar 


Exit from program 





Fin del programa 



Es el menu principal del programa DISCKIT. Los niimeros recuadrados hacen referenda 
a las teclas de funcion del teclado numerico (marcadas con fO, f1, f4 y f7). Pulsando una 
de estas teclas se elige la opci6n deseada. 

Observe que la opci6n de este menu hace que se abandone el programa DISCKIT y se 
vuelva al modo directo de consola de CP/M (inductor A>). 

Como lo que queremos hacer ahora es copiar un disco, pulse la tecla de funcidn mimero 
7(f7). 
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precauci6n 

al copiar sobre un disco se borra su contenido anterior 



Copia en un sistema de una sola unidad de 
disco 



Suponiendo que su sistema sea de una sola unidad de disco (es decir, que no tenga conec- 
tada la segunda unidad), el mensaje que aparecer^ en la pantalla es: 



Copy Copiar 

Any other key to exit menu Cualquier otra tecla para volver al menu 



En este momento debe extraer el disco de CP/M e insertar el disco que va a copiar (el 
disco fuente). Si va a copiar el disco de sistema de CP/M, dejelo en la unidad de disco. 

Cuando haya insertado el disco fuente, pulse la tecla Y (de yes, "si"), lo que equivale a 
decir: "de acuerdo, copia el disco". 

El ordenador comprueba cual es el formato del disco fuente y exhibe el mensaje adecuado 
en la primera Imea de la pantalla. 

Al cabo de unos segundos aparece el mensaje 

Insert disc to WRITE Insertar disco para ESCRIBIR 

Press any key to continue Pulsar cualquier tecla para continuar 

En este momento debe extraer de la unidad el disco fuente, insertar el disco sobre el que 
quiere copiar (disco de destino) y pulsar una tecla. 

En la pantalla aparece informacion sobre el formato que va a tener el disco destino (aun 
cuando sea un disco nuevo no iniciaUzado). 
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Si el disco destino no esta inicializado, o no lo esta correctamente, apareceri el mensaje 
Disc isn't formatted (or faulty) 

El disco no esta inicializado (o es defectuoso) 
Going to format wliile copying Voy a inicializar al copiar 
Disc will be system format El disco tendra formato de sistema 

o alguno similar, dependiendo del formato del disco fuente. 

Cuando el ordenador este otra vez dispuesto a seguir leyendo el disco fuente, emitird el 
mensaje 

Insert disc to READ Insertar disco para LEER 

Press any key to continue Pulsar cualquier tecla para continuar 

y usted debe insertar nuevamente el disco destino. 

El proceso se repite las veces necesarias hasta que la copia esta terminada; entonces apare- 
ce el mensaje: 

Copy completed Copia terminada 

Remove disc Extraer el disco 

Press any key to continue Pulsar cualquier tecla para continuar 

Siga entonces las instrucciones que vea en la pantalla: pulse Y para copiar otro disco, o 
cualquier otra tecla para volver al menu. 



Proteccion contra escritura 



El sistema no permite copiar sobre un disco que tenga abierto el orificio de protecci6n 
contra escritura. Si lo intenta, el ordenador emite el mensaje: 

Disc write-protected El disco esti protegido contra escritiira 

Insert disc to WRITE Insertar disco para ESCRIBIR 

R-etry or C-ancel R-eintentar o C-ancelar 

Lo que se debe hacer entonces es pulsar C para cancelar la operacion, extraer el disco e 
insertar el disco sobre el que si se quiere copiar, con el orificio de proteccidn obturado. 

Es muy importante no cerrar los orificios de proteccidn de los discos que contengan pro- 
gramas valiosos. NO CERRAR NUNCA los orificios de proteccion del disco maestro de 
CP/M. 
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Verificacidn de discos 



El programa DISCKIT tambi6n ofrece la opci6n de verificar (comprobar) discos. 

Esta opci6n exhibe en la pantalla informaci6n acerca del formato del disco; lee todos los 
ficheros del disco e informa sobre los errores que encuentra. 

El proceso completo de verificacidn de un disco es el siguiente: inserte la cara 1 del disco 
de CP/M y escriba 

!cpm 

Cuando aparezca el inductor A> escriba 

disckit 

Seleccione la opci6n verify del menu principal de DISCKIT pulsando la tecla f 1 y luego 
siga las instrucciones que vayan apareciendo en la pantalla. 

Una vez instalado el disco a verificar, pulse Y para iniciar el proceso. 

Cuando la verificacidn tennina, se emite el siguiente mensaje: 

Verify completed Verificacidn terminada 

Remove disc Extraer el disco 

Press any l(ey to continue Pulsar cualquier tecla para continuar 

Entonces puede optar por verificar otro disco (pulsando Y) o por volver al menu de DISC- 
KIT (pulsando cualquier otra tecla). 
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Parte 11: Introcluccion al gestor de 

bancos de memoria (solo 6128) 

El segundo bloque de 64K de memoria 

El CPC6128 esta dotado de 128K de RAM {random acces memory, memoria de acceso 
aleatorio) divididos en dos bloques de 64K cada uno. CP/M Plus utiliza todos los 128K, 
pero en cambio BASIC normalmente no se sirve mas que de los 64K primeros. Sena una 
pena no aprovechar los otros 64K en los programas de BASIC, asi que hemos incluido 
un programa que proporciona ordenes gracias a las cuales se puede utilizar esa memoria 
con dos usos espedficos: como almacen de imagenes de pantalla o como espacio para al- 
macenar cadenas de caracteres. 

El programa se llama 'gestor de bancos' ('banco' es un termino tecnico que significa 'blo- 
que de memoria'). 

Control de imagenes de pantalla con el 
gestor de bancos 

El ordenador 6128 visualiza y mantiene constantemente actualizada una imagen de panta- 
lla. Para ello necesita 16K de memoria en la que almacenar informacion acerca del color 
y el brillo de todos los pixels (puntos) de la pantalla. En la memoria del 6128 hay espacio 
suficiente para almacenar informacion sobre seis imdgenes de pantalla simultaneamente 
(16K para cada una). El gestor de bancos proporciona las ordenes necesaria para manipu- 
lar y visualizar desde BASIC cinco de las pantallas posibles. 

Cuando se conecta el ordenador, la imagen que se observa en la pantalla estd formada 
con los datos almacenados en el primer bloque de 16K (que denominaremos 'bloque 1'), 
dentro del primer banco de 64K. Las otras cuatro pantallas estan en el segundo banco de 
64K y les llamaremos bloque 2, bloque 3, bloque 4 y bloque 5. 

En realidad, el unico bloque cuya informaci6n se consulta para formar la imagen es el 
bloque 1. Para visualizar los bloques del segundo banco (bloques 2, 3, 4 y 5) hay que 
transferirlos al bloque 1. El gestor de bancos proporciona las ordenes necesarias para rea- 
lizar esas transferencias: ISCREENCOPY copia el contenido de un bloque en otro, bo- 
rrando la informaci6n previamente grabada en el bloque destino; I SCREENSWAP inter- 
cambia el contenido de dos bloques. 
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Las ordenes del gestor de bancos son ordenes externas y van precedidas, por consiguiente, 
por el simbolo I (tecla @ con [MAYS]). 



Utilizacion del gestor de bancos 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. Inserte en la unidad de disco 
la cara 1 del disco del sistema y escriba 

RUN "BANKMAN" 

El procedimiento de carga se explica en el capitulo 7, partes 13 y 14, en las que se habla 
de las RSX (Resident System extensions, ampliaciones del sistema residentes). Conviene 
tener cierta idea de como funcionan estas rutinas y de como reservarles espacio en la me- 
moria antes de utilizarlas en los programas. No obstante, para probar los siguientes ejem- 
plos no es necesario conocer el procedimiento de carga. 

Escriba: 

MODE 1 

PRINT "ESTA ES LA PANTALLA IMPLICITA" 
!SCREENSWAP,1,2 

El texto debe haber desaparecido como consecuencia de la ultima orden (screenswap signi- 
fica "intercambio de pantalla"). Lo que ahora hay en la pantalla es la informacidn que 
antes estaba almacenada como 'pantalla 2' (en el bloque 2). Si la maquina estaba recien 
encendida, sera seguramente una imagen aleatoria. Para borrarla escriba: 

M0DE1 

y a continuacion: 

PRINT "ESTA ES LA PANTALLA 2' 
!SCREENSWAP,1,2 

Ha vuelto a aparecer el texto original. Al repetir la orden ISCREENSWAP.1,2 hemos 
vuelto a intercambiar las dos pantallas. Con la orden I SCREENSWAP se puede inter- 
cambiar cualquier pantalla de las cinco disponibles con cualquier otra; pero el efecto solo 
sera visible si una de las pantallas implicadas es la niimero 1 . 
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La otra orden es I SCREENCOPY ("copia de pantallas"). Con ella se copia una pantaUa 
sobre otra y se borra la que originalmente habia en el bloque destino. 

Escriba: 

MODE 1 

PRINT "VAMOS A COPIAR ESTA PANTALLA" 
!SCREENCOPY,2,1 

La pantalla fuente, la 1, se ha copiado en la pantalla destino, la 2. Si ahora invertimos 
el orden de los parametros, 

MODE 1 
ISCREENC0PY,1.2 

el contenido de la pantalla actualmente visible (es decir, la 1) es sustituido por el de la 
pantalla 2. 

Asi pues, el primer pardmetro representa la pantalla destino; el segundo, la pantalla 
fuente. 

Al copiar pantallas se producen imdgenes distorsionadas si los modos de pantalla son dife- 
rentes o si la pantalla visible ha sido desplazada hacia arriba despuds de la ultima ejecu- 
ci6n de una orden MODE. Las 6rdenes de control de pantallas del gestor de bancos estdn 
pensadas para su utilizaci6n en pantallas grificas m^ bien que en pantallas de texto, y 
en aqu^llas el desplazamiento de la pantalla es mas improbable. 



Utilizacion del gestor de bancos en el 
almacenamiento de cadenas literales 



El programa gestor de bancos proporciona otras cuatro 6rdenes externas mefdiante las 
cuales se puede convertir el segundo banco de memoria (64K) en un archivo de cadenas 
literales. 

Casi todos los programas se pueden dividir en dos partes: las instrucciones del programa 
y los datos con los que opera. Un buen ejemplo seria un programa de base de datos, tal 
como una lista de nombres y direcciones. Un programa asi utilizan'a vectores literales para 
almacenar los nombres y las seflas. 
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Las cadenas literales se pueden almacenar en el segundo banco de 64K de memoria, una 
tras otra. El espacio dedicado a almacenar las cadenas se puede dividir en una serie de 
compartimentos que denominaremos registros. Los registros son de longitud fija, entre 
2 y 255 caracteres cada uno, mientras que la longitud de las cadenas literales de BASIC 
no es fija, sino que depende de los caracteres que las integren. El m^todo de almacena- 
miento mediante registros proporciona compartimentos de tamafio uniforme: una especie 
de casillero en el que se guarda la informaci6n de forma bien organizada. Cada operacion 
de escritura o lectura de datos de un registro va acompa&ada de un avance autom^tico 
al registro siguiente, el cual queda dispuesto para la siguiente operaci6n. El registro con 
el que se va a realizar la siguiente operacion es el 'registro actual', y es el que las 6rdenes 
del gestoi" de bancos utilizaran si no se especifica otro diferente. 

A este sistema de gestidn de la memoria le hemos dado el nombre de 'RAMdisc' o 
'disco virtual' porque funciona de forma muy parecida a como lo hacen los sistemas de 
fichero de acceso aleatorio en disco, con la unica diferencia de que el soporte fisico es la 
RAM en lugar de un disco. 

Lea las siguientes descripciones de las diversas ordenes; si no aprende a utilizarlas inme- 
diatamente, al menos apreciara para que sirven. Despues practique con los ejemplos. 

La primera orden de RAMdisc es I BANKOPEN. Esta orden especifica el niimero de ca- 
racteres que va a tener cada registro. La sintaxis es: 

I BANKOPEN,n 

donde n es un niimero que especifica la longitud de los registros. El numero n puede tener 
cualquier valor del margen de a 255, pero los valores y 1 producen efectos 
incontrolados. 

I BANKWRITE almacena una cadena literal en el 'registro actual'. Al terminar la ejecu- 
ci6n de la orden, el 'puntero de registro' pasa a apuntar al registro siguiente a aqu^l en 
el que se ha escrito y lo convierte en el nuevo 'registro actual'. La sintaxis es: 

I BANKWRITE,@r%,a$ 

o bien 

I BANKWRITE,@r%,a$,n 

donde r% es una variable entera que contiene, al terminar la orden, cierta informaci6n 
acerca de la operaci6n que se acaba de realizar. a$ es una variable literal que contiene los 
caracteres que se ban de almacenar en el registro. En el primero de estos dos ejemplos 
se escribe en el registro actual; en el segundo ejemplo el pardmetro opcional n especifica 
el numero de registro en el que se debe escribir. 
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I BANKREAD examina un registro y asigna su contenido a una cadena literal; al terminar 
la lectura, incrementa el puntero de registros y convierte en registro actual el siguiente a 
aquel en que se realize la operacion. El contenido de los registros no resulta modificado 
por las operaciones de lectura. La sintaxis de I BANKREAD es la siguiente: 

I BANKREAD,@r%,a$ 

* 

o bien 

I BANKREAD,@r%,a$,n 

donde r% es una variable entera que contiene, al terminar la orden, cierta informacion 
acerca de la operaci6n que se acaba de realizar. a$ es una variable literal a la que se asigna 
los caracteres leidos en la operacion. En el primero de estos dos ejemplos se lee el registro 
actual; en el segundo ejemplo el parametro opcional n especifica el niimero de registro 
que se debe leer. 

La ultima orden de este grupo es I BANKFIND. Esta orden exsunina los registros en busca 
de una cadena literal especificada. Si la encuentra, entrega el niimero de registro en el que 
la ha encontrado. La sintaxis de I BANKFIND es: 

;BANKFIND,@r%,a$ 
o bien 

! BANKFIND,@r%,a$,n 
o bien 

I BANKFIND,@r%,a$,n,m 

donde r% es una variable entera que contiene, al terminar la orden, o bien el mimero de 
registro en el que se ha encontrado la cadena, o bien un codigo que indica que la cadena 
no ha sido encontrada. a$ es la cadena que se busca. El parametro opcional n especifica 
el mimero de registro a partir del cual se debe empezar a buscar. Si no se especifica n, 
la biisqueda comienza a partir del registro actual. El segundo parametro opcional, m, es- 
pecifica el mimero de registro en el que se debe abandonar la biisqueda. Si se omite m, 
la biisqueda contimia hasta el final de los 64K de memoria, con lo que se puede sobrepasEU" 
el final de los datos escritos por el programa. 

Pruebe ahora los siguientes ejemplos. Si ya ha ejecutado el programa para estudiar las 
ordenes de manipulacion de pantallas y no ha reinicializado la maquina desde entonces, 
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las ordenes de RAMdisc seguiran en la memoria. De lo contrario, inserte en la unidad de 
disco la cara 1 del disco del sistema y escriba lo siguiente: 

RUN"BANKMAN" 

Ahora escriba: 

I BANKOPEN,20 

Esta orden especifica que los registros van a ser de 20 caracteres cada uno y selecciona 
como registro actual el niimero 0. 

Escriba: 

a$= "PRIMER REGISTRa'+SPACE$(5) 

con lo que se forma la cadena a$ con longitud de 20 caracteres. 
Escriba ahora: 

r%=0 

para inicializar r%. 
Escriba: 

I BANKWRITE,@r%,a$ 

Esta orden escribe a$ en el primer registro (el niimero 0). A continuacion escriba: 

d$=SPACE$(20) 

I BANKREAD,@r%,d$,0 

PRINT d$ 

La primera orden iguala d$ a ima cadena de 20 espacios, longitud suficiente para poder 
asignarle el contenido del registro en la operacion de lectura. La segunda orden lee el re- 
gistro niimero y asigna su contenido a la variable literal d$. Antes de la lectura el registro 
actual era el niimero 1 (actuEilizado por la anterior I BANKWRITE); por eso hemos tenido 
que especificar que la lectura debia realizarse en el registro niimero 0. De no haberlo he- 
cho asi, se habria leido el registro actual. La liltima orden de este ejemplo escribe en la 
pantalla el resultado de la lectura; si todo ha ido bien, d$ deberia ser igual a la cadena 
'PRIMER REGISTRO' seguida de 5 espacios. 
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Escriba lo siguiente: 

b$=" DOS" +SPACE$(17) 
c$="TRES" +SPACE$(16) 
! BANKWRITE,@r%,b$,1 
! BANKWRITE,@r%,c$ 

Estas ordenes escriben b$ y c$ en los registros 1 y 2. En la primera orden I BANKWRITE 
hemos incluido el pardmetro opcional, con lo que b$ ha quedado almacenada en el regis- 
tro 1 . Esta misma orden ha incrementado el puntero de registro; al ejecutarse la segunda 
orden I BANKWRITE, el puntero apunta al registro 2, y es en el donde se almacena c$. 

Escriba: 

PRINT r% 

El resultado deberia ser 2. Este numero se puede considerar como el niimero del ultimo 
registro sobre el que se ha operado, o bien como el numero del registro actual menos uno. 
En este ejemplo, el ultimo registro utilizado es el 2; el registro actual (o sea, el registro 
sobre el que actuara la pr6xima orden de RAMdisc si no se especifica otra cosa) es el 3. 

Esta variable, r%, proporciona siempre informacion acerca de c6mo se ha desarroUado 
la ultima operaci6n. Si la operaci6n ha concluido con 6xito, la variable toma un valor po- 
sitive que representa un numero de registro. En caso contrario, el valor es negativo e indi- 
ca un codigo de error. 1 BANKWRITE y I BANKREAD pueden generar los dos c6digos 
de error siguientes: 

- 1 Indica que se ha alcanzado el final del fichero. Esto ocurre cuando ya se han utilizado 
todos los registros o cuando se especifica un numero de registro que no existe. 

-2 Indica un fallo en la conmutaci6n de bancos. No deberia ocurrir nunca. 

Pruebe los siguientes ejemplos: 

d$=STRING$(20/'X") 

IBANKOPEN,20 

FOR n=1 TO 3: ! BANKWRITE,@r%,d$:NEXT 

La primera orden asigna a la variable literal d$ una cadena formada por 20 letras 'X'. 
I BANKOPEN reinicializa el puntero de registros a 0, de modo que I BANKWRITE escri- 
be la cadena d$ en los registros 0, 1 y 2, borrando su contenido anterior. 
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Ahora escriba: 

a$="PRIMER(y' 

! BANKWRITE,@r%,a$,0 

Estas ordenes escriben la palabra 'PRIMERO' en el registro 0, superponidndola a algunas 
de las 'X' que habia antes en 61. Vuelva a igualar dS a una cadena de espacios con 

d$=SPACE$(20) 

y escriba 

I BANKREAD,@r%,d$,0 

Esta orden lee el registro y asigna su contenido a d$. 

Repasemos todo lo que hemos hecho hasta ahora. Hemos escrito en los tres primeros re- 
gistros sendas cadenas formadas por 20 letras 'X' cada una. Hemos cambiado las letras 
'X' del registro por la palabra 'PRIMERO'. Finalmente, hemos vuelto a definir d$ co- 
mo una cadena de 20 espacios. Si ahora escribimos 

PRINT d$ 

el resultado debe ser 'PRIMEROXXXXXXXXXXXXX'. Este ejemplo ilustra una consi- 
deracion importante que se debe tener presente al utilizar estas 6r denes. Si la cadena que 
se escribe en un registro no lo llena completamente, los caracteres antiguos sobre los que 
no se ha escrito seguiran estando en el registro. Esto puede ser ventajoso en ocasiones, 
pero en general serA conveniente escribir una cadena de espacios (o sea, de cjiracteres AS- 
CII 32) en el registro antes de actualizar la informacion en €1 almacenada. Lo mismo se 
puede decir acerca de la cadena a la que se va a asignar los caracteres leidos en un registro: 
si la longitud de la cadena es mayor que la longitud del registro, al final de ella quedaran 
caracteres que no habran resultado de la operacion de lectura. Esta es la razon por la que 
hemos borrado (o igualado a una cadena de espacios) la cadena d$ antes de asignar el con- 
tenido del registro 0. 

Es posible escribir una cadena en un registro que sea demasiado corto para recibir la cade- 
na completa. En tal caso se ignoran los caracteres de la cadena (los ultimos por la derecha) 
que no quepan en el registro. 

Analogamente, si se lee un registro y se asigna su contenido a una cadena demasiado cor- 
ta, los caracteres que no quepan en ella seran ignorados. En las operaciones normales con 
cadenas, BASIC ampliaria automaticamente la cadena para aceptar todos los caracteres, 
pero esto no es asi cuando se utilizan ordenes externas. 
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Finalmente, vamos a describir la orden I BANKFIND. Esta orden sirve para examinar los 
registros en busca de una sucesion de caracteres especificada. Por ejemplo, si el registro 
numero 24 empieza con la palabra 'DANIEL', la orden 

!BANKFIND,@r%/' DANIEL" 

la encontrara. Esta funci6n es extremadamente litil en los programas de bases de datos, 
en los cuales se puede necesitar, por ejemplo, buscar un nombre a lo largo del fichero. 

I BANKFIND inicia la busqueda a partir del registro actual y la continua hasta que en- 
cuentra la cadena o hasta el final de los 64K de memoria, si no se especifica otra cosa. 

Se puede incluir un parametro para especificar el numero de registro a partir del cual se 
debe buscar. Despues de 6ste se puede incluir otro pardmetro para especificar en que nu- 
mero de registro se debe interrumpir la busqueda. 

I BANKFIND tambien puede buscar una cadena que no este al principio de registro. Para 
ello, al principio de la cadena buscada se incluyen tantos caracteres chr$(0) como posicio- 
nes haya en el registro antes de los buscados. Los caracteres chr$(0) actiian como 'simbo- 
los comodin' (como los ? en los nombres de ficheros de CP/M), con el significado de 
'cualquier caracter'. Por ejemplo, 

a$=STRING$(10,0)+" DANIEL" 
IBANKFIND,@r%.a$,0 

busca el primer registro en el que figure la palabra 'DANIEL' en las posiciones 11 .* a 16.* 
Los diez primeros caracteres del registro podrian contener un numero de telefono o cual- 
quier otra informacion que I BANKFIND ignoraria. 

Al concluir la operacion, la variable r% contiene el numero del registro en el que se ha 
encontrado la cadena, o bien el c6digo -3 si no se la ha encontrado. 



Informacion adicional 



En el capitulo 7 se puede encontrar mds informaci6n sobre el gestor de bancos; estudie 
tambien las partes 13 y 14 del capitulo 6, en las que se describen las RSX. 
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Aqui termina este 'Curso de introduccidn' al 464/6128. Es de esperar que usted haya 
aprendido para que sirve la mayor parte de las teclas, como utilizar las instrucciones mds 
sencillas de BASIC, c6mo preparar un disco virgen, como realizar las funciones mas ele- 
mentales de manejo de discos, tales como LOAD, SAVE y CAT, y c6mo utilizar unas 
cuantas ordenes de AMSDOS, CP/M y el gestor de bancos. 

En el resto del manual abordaremos cuestiones mas avanzadas como el estudio del BASIC 
de AMSTRAD. 

jBuena suerte y que disfrute! 
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Capitulo 2 

La genesis de un programa 



Pues bien. Usted ya ha leido el 'Curso de introduccion' y tiene ante si el ordenador encen- 
dido. Ya sabe como hacer que el ordenador repita una tarea varias veces con la instruccidn 
FOR ... NEXT y como hacerle realizar operaciones de forma condicional con la instruc- 
ci6n IF . . . THEN .... 

Pero pronto empezard a cansarse de ver su nombre repetido hasta la saciedad en la panta- 
Ua y querrd aprender algo de informatica mas seria, algo util o divertido. En el capitulo 
siguiente damos la lista de todas las palabras clave del BASIC de AMSTRAD, junto con 
su sintaxis, es decir, la forma de utilizarlas. Con estas herramientas en la mano, el linico 
limite a lo que puede obtener del ordenador lo fijard su imaginaci6n. 

Si no ha utilizado antes ningun otro ordenador, es probable que la palabra 'programa- 
cion' le suene amenazadora. jNo le tenga miedo! Programar es mas facil de lo que usted 
cree, y desde luego mucho mas facil de lo que la jerga tecnica da a entender. 

No se deje asustar por BASIC y vera que pronto empieza a disfrutar de la programaci6n 
y de los frutos de su esfuerzo. Programar puede llegar a ser un ejercicio muy gratificante, 
en particular para el principiante que se pone a experimentar con la maquina y el lenguaje. 
Si usted tiene un 6128, recuerde siempre que, a excepcion del riesgo de borrar accidental- 
mente el disco de CP/M, nada que usted haga en el teclado puede dafiar el ordenador; 
siempre vale la pena intentar algo nuevo. 



iPof donde empezamos? 



En programacidn, como en muchas otras actividades, lo mds dificil es empezar. Sin em- 
bargo, lo peor que puede hacer es lanzarse directamente al teclado sin antes pensar para 
que. 

El primer paso en el desarroUo de un programa debe ser establecer claramente que se pre- 
tende que el programa haga y c6mo se quiere que presente los resultados en la pantalla. 



La genesis de un programa 2/1 



Decidido esto, se puede empezar a escribir un programa que realice las funciones desea- 
das, preocupandose siempre de que el progrsuna discurra suavemente de principio a fin, 
con el mi'nimo niimero de saltos posible. Un buen programa debe ser facil de leer una vez 
listado, no un lio indescifrable que haga imposible la deteccion de errores o la depuracion 
del programa. 

Afortunadamente, BASIC es un lenguaje muy tolerante que facilita la depuracion de los 
programas emitiendo mensajes que indican donde esta el error y en que consiste. Ademas, 
hace posible la ampliacion de los programas, pues permite intercalar lineas nuevas entre 
las ya existentes. 



Un programa sencillo 



Manos a la obra. Vamos a escribir un programa que controle y mantenga un fichero con 
los nombres y mimeros de telefono de nuestros amigos. Le llamaremos 'guia de telefo- 
nos'. Para respetar las reglas que hemos enunciado, '^que debe hacer el programa?'; '^co- 
mo debe presentar los resultados en la pantalla?'. 

El programa debe permitirnos almacenar 100 nombres y mimeros de telefono. Cuando 
queramos averiguar un mimero de telefono, escribiremos el nombre y el ordenador nos 
dara el mimero. Ademas, por si no recordamos como habiamos escrito algiin nombre, el 
programa debe ser capaz de exhibir toda la informacidn en la pantalla. Dicho sea de paso, 
esto ya nos hace empezar a pensar en la forma de presentacion de los resultados en la 
pantalla. 

De acuerdo, vamos al teclado. Empezaremos por escribir el nombre del programa: 

10 REM guia de telefonos 

No es imprescidible dar nombre a todos los programas, pero comprobara cuando tenga 
grabados unos cuantos que es muy litil poder averiguar de un golpe de vista cual es cual. 

Lo siguiente que necesitamos es poder captar por el teclado (con INPUT) una cadena de 
caracteres (quiza un nombre) para luego poder asignarlo a una variable. A la variable que 
represente el nombre le llamaremos NOMBRE$. Lo mismo se puede hacer con el mimero 
de telefono; a la variable le llamaremos TEL$. 
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iRecuerdatodavia los programas del 'Curso de introduccion'? En algunos de ellos utiliza- 
bamos la instniccion INPUT para captar los valores de las variables. Escribamos: 

20 INPUT "Escriba el nombre:";NOMBRE$ 

30 INPUT "Escriba el numero de telefono:";TEL$ 

run 

En respuesta al programa podemos introducir un nombre (por ejemplo, Juan) y luego 
un numero de telefono (por ejemplo, 923 233717). 

El programa ha almacenado la informaci6n que le hemos sumistrado, pero no ha escrito 
ningiin resultado en la pantalla. Asi pues, en algiin lugar del programa necesitaremos ins- 
trucciones del tipo 

PRINT NOMBRE$ . .. y . . . PRINT TEL$ 

con las que recuperemos los valores de las variables. 

Algo falla, iverdad? Dijimos que nuestro programa deberia ser capaz de almacenar 100 
nombres con sus niimeros de telefono; si seguimos por este camino, necesitaremos 200 ins- 
trucciones INPUT para escribir la lista en la pantalla. No se inquiete; los ordenadores tie- 
nen un recurso que permite manejar con faciUdad grandes cantidades de datos: se trata 
de las 'Ustas'. Una lista es una variable que puede representar, con im solo nombre (tal 
como NOMBRE$), un grupo de datos (en nuestro caso necesitamos 100) que se identifi- 
can por un indice. Cuando queramos referirnos a un dato concrete, lo cit2iremos por el 
nombre de la variable seguido del indice entre parentesis; por ejemplo, NOMBRE$(27), 
donde 27 es el indice y NOMBRES$ es lo que denominamos variable indexada. Si como 
indice ponemos una variable numerica, NOMBRE$(x), en lugar de un numero concreto, 
podemos manejar la Usta completa de datos, del 1 al 100, variando el valor de x dentro 
de un bucle FOR . . . NEXT (v. g., FOR x=1 TO 100). A medida que se va incrementando 
el valor de x, el indice de NOMBRE$ va seiialando los diferentes elementos de la lista. 

En nuestro programa necesitamos dos Ustas, NOMBRE$ y TEL$, cada una con capacidad 
para 100 elementos. Pero tenemos que informar al ordenador de nuestras intenciones, y 
para ello debemos dimensionar las hstas con la instrucci6n DIM. Cambiemos las h'neas 
20 y 30: 

20 DIM NOMBRE$(100) 
30 DIM TEL$(100) 
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Ahora ya podemos escribir el tramo del programa que nos va a permitir introducir nom- 
bres y numeros de telefono. Afiada las siguientes lineas: 

40 FOR x=1 TO 100 

50 INPUT;" Nombre ";NOMBRE$(x) 

60 INPUT " Telefono ";TEL$(x) 

70 NEXT 

run 

Pero no es probable que vayamos a introducir los 100 nombres de una vez, y ademas la 
forma de presentacion en la pantalla es muy desordenada. Tenemos que organizamos me- 
jor. En primer lugar, antes de captar un nombre, vamos a libramos de todo el texto super- 
fluo que tenemos en la pantalla: 

46 els 

iQue podemos hacer para decirle al ordenador que de momento ya no queremos introdu- 
cir m^ datos? Podemos detener el programa pulsando [ESC] dos veces, pero cuando vol- 
vamos a teclear run perderemos todos los datos introducidos anteriormente. 

Esta es la solucion. Cada vez que el programa capte un nuevo nombre, haremos que exa- 
mine el dato introducido para ver si consta de al menos un caracter o si, por el contrario, 
es la 'cadena vada'. Si lo es, haremos que suspenda la captaci6n de datos. Anada lo 
siguiente: 

S5 IF NOMBRE$(x)="" THEN 80 

80 PRINT "Fin de la entrada de datos" 

Tambien necesitamos que el ordenador indique al usuario qu6 debe hacer para suspender 
la introduccion de datos. Anada, pues, la siguiente linea: 

47 PRINT "Pulse [RETURN] para terminal" 

Ahora vamos a escribir las instrucciones que exhiban en la pantalla la informaci6n alma- 
cenada. Primero la lista completa: 

90 FOR x=1 TO 100 

100 PRINT NOMBRE$(x);" ";TEL$(X) 

110 NEXT 
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Otra vez nos ocurre que el programa no sabe d6nde pararse y continiia hasta el centesimo 
elemento. Esto tiene Mcil arreglo: 

95 IF NOMBRE$(x)=" " THEN 120 
120 PRINT "Fin de la lista" 

La Unea 95 comprueba si NOMBRE$(x) es la cadena vacia; si lo es, concluye la escritura 
de la lista saltando a la linea 120. 

Atendamos a los otros requisites que habiamos formulado al idear el programa. Necesita- 
mos unas instrucciones que busquen en la lista un nombre introducido por el ususario. 
Escriba lo siguiente: 

130 INPUT "Buscar ";BUSCA$ 

140 FOR x=1 TO 100 

150 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 180 

160 PRINT NOMBRE${x);" ";TEL$(x) 

170 END 

180 NEXT 

190 PRINT' No lo encuentro" 

En la linea 150 hay una instrucci6n nueva: INSTR. Esta instruccion determina si la cadena 
literal BUSCA$ (que es el nombre que estamos buscando, captado en la linea 130) esta 
contenida en NOMBRE$(x). Si no lo est^, INSTR genera el valor 0, y entonces el progra- 
ma salta a la linea 180 para probar con el siguiente valor de x. Si el programa ha examina- 
do sin 6xito todos los elementos de la lista, continiia en la Unea 190, donde informa de 
lo que ha ocurrido. En cambio, si encuentra el nombre, INSTR produce un valor mayor 
que 0, lo que permite que el programa pase de la linea 150 a la 160 para escribir el nombre 
y el niimero de telefono y luego terminar con la instruccion END de la linea 170. 

Como ve, nuestro programa avanza muy deprisa, pero todavia nos queda mucho por ha- 
cer. Meditemos un poco sobre los inconvenientes de este programa, empezando por el or- 
den en que funciona: primero capta la informacidn, despues la escribe completa en la pan- 
talla, luego busca un nombre concreto. 



idue ocurre si 



Precisamente. iQue ocurre si no queremos que los acontecimientos se produzcan en ese 
orden? Podriamos querer consultar un telefono que introdujimos ayer. O podriamos que- 
rer ampliar la Usta con otros nombres. Esto nos plantea nuevos problemas, para los que 
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tenemos que encontrar soluci6n. Despues de todo, en esto es en lo que consiste la progra- 
maci6n. Ya hemos dicho que BASIC es muy amable y nos permite rectificar e incluir nue- 
vas instrucciones con gran facilidad; pero un buen programador habn'a pensado en todo 
esto de antemano. 

Otro grave inconveniente del programa consiste en que las listas quedan almacenadas so- 
lamente en la memoria del ordenador, la cual se borra cada vez que se apaga el ordenador. 
De poco nos serviria este programa si tuvieramos que escribir todos los datos cada vez 
que lo ejecutasemos; asi pues, necesitamos que el programa pueda grabar los valores de 
los elementos de NOMBRE$ y TEL$ antes de que apaguemos el ordenador, y tambien que 
pueda cargar los datos cada vez que lo ejecutemos. 



Soluciones 



El primero de los problemas mencionados (el del orden de ejecucion) se resuelve haciendo 
que el programa d^ la posibilidad de elegir entre las funciones que sabe realizar. De un 
programa de este tipo se dice que esta 'controlado por menu' pues, en efecto, ofrece un 
menu de opciones de entre las cuales se elige la deseada. Si alguna vez ha sacado dinero 
de un cajero automatico, ya ha utilizado un programa de ordenador controlado por me- 
nu. Anadamos un menu a nuestro programa: 

32 PRINT'1. Introd. datos" 

33 PRINT'2. Listado" 

34 PRINr'3. Busqueda" 

35 PRINT'4. Grabar de datos" 

36 PRINT'5. Cargar datos" 

37 INPUT "Elija una opcion (1-5) ";el 

38 ON el GOSUB 40,90,130 

S5 RETURN 
125 RETURN 
170 RETURN 
200 RETURN 

Hemos hecho que el programa escriba la Usta de opciones y que capte la eleccion del usua- 
rio mediante una instruccion INPUT para asignarla a la variable el. La instruccion ON 
el GOSUB de la linea 38 funciona de la siguiente forma: si el=1, invoca la subrutina de 
la linea 40; si el =2, invoca la subrutina de la linea 90, etc. 
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Puesto que todas las funciones estan ahora en subrutinas (controladas por la instruccion 
ON el GOSUB), tienen que terminar en una instruccion RETURN. De ahi que hayamos 
incluido las lineas 85, 125, 170 y 200. 

iRecuerda para que sirve RETURN? Hace que BASIC retorne de la subrutina a la instruc- 
ci6n siguiente a aquella que invoco la subrutina. En nuestro caso, el punto de retorno es 
la instruccion siguiente a la linea 38, que es la linea 40. Si dejamos que esto ocurra, el 
programa entra en la subrutina de 'Introduccion de datos'. Para impedirlo aiiadimos la 
linea 

39 GOTO 32 

que reconduce el programa al menu. 

Ejecute el programa y vea cuanto hemos progresado. 

Bien; vamos a echar un vistazo al listado. (Detenga el programa pulsando [ESC] dos ve- 
ces.) Escriba: 

LIST 

Esto es lo que tenemos por el momento: 

10 REM guia de telefonos 
20 DIM NOMBRE$(100) 
30 DIM TEL$(100) 

32 PRINT' 1. Introd. datos" 

33 PRINT' 2. Listado" 

34 PRINT'3. Busqueda " 

35 PRINT'4. Grabar datos" 

36 PRINT'S. Cargar datos" 

37 INPUT "Elija una opcion (1-5) ";el 

38 ON el GOSUB 40,90,130 

39 GOTO 32 

40 FOR x=1 TO 100 
45CLS 

47 PRINT' Pulse [RETURN] para terminal" 

50 INPUT;" Nombre ";NOMBRE$(x) 

55 IF NOMBRE${x)="" THEN 80 

60 INPUT;" Telefono ";TEL$(x) 

70 NEXT 

80 PRINT "Fin de la entrada de datos" 

85 RETURN 
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90 FOR x=1 TO 100 

95 IF NOMBRE$(x)="" THEN 120 

100 PRINT NOMBRE$(x);" ";TEL$(x) 

110 NEXT 

120 PRINT "Fin de la lista" 

125 RETURN 

130 INPUT "Buscar ";BUSCA$ 

140 FOR x=1 TO 100 

150 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 180 

160 PRINT NOMBRE$(x);" ";TEL${x) 

170 END 

180 NEXT 

190 PRINT' No lo encuentro" 

200 RETURN 

Observe que en algunas zonas del programa las instrucciones estan muy apretadas y no 
dejan hueco para introducir otras nuevas. Reorganicemos el programa renumerando las 
lineas. Escriba: 

RENUM 
LIST 

El listado es ahora: 

10 REM guia de telefonos 

20 DIM NOMBRE$(100) 

30 DIM TEL$(100) 

40 PRINT'1. Introd. dates" 

50 PRINT'2. Listado" 

60 PRINT'S. Busqueda" 

70 PRINT'4. Grabar datos" 

80 PRINT'5. Cargar datos" 

90 INPUT "Elija una opcion (1-5) ";el 

100 ON el GOSUB 120,210,270 

110 GOTO 40 

120 FOR x=1 TO 100 

130 CLS 

140 PRINT' Pulse [RETURN] para terminal" 

150 INPUT;" Nombre ":NOMBRE$(x) 

160 IF NOMBRE$(x)="" THEN 190 

170 INPUT;" Telefono ";TEL$(x) 

180 NEXT 
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190 PRINT "Fin de ia entrada de datos" 

200 RETURN 

210 FOR x=1 TO 100 

220 IF NOMBRE$(x)="" THEN 250 

230 PRINT NOMBRE$(x):" ";TEL$(x) 

240 NEXT 

250 PRINT "Fin de la lista" 

260 RETURN 

270 INPUT "Buscar ";BUSCA$ 

280 FOR x=1 TO 100 

290 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 320 

300 PRINT NOMBRE$(x);" ";TEL$(x) 

310 END 

320 NEXT 

330 PRINT' No lo encuentro" 

340 RETURN 

jMucho mds limpio! Pero sigamos con el programa. Ahora queremos que cada vez que 
introduzcamos un dato nuevo (nombre y luimero), el ordenador lo coloque al final de la 
lista actual, en el primer lugar que encuentre vacio. En esta ocasion vamos a utilizar la 
instruccion LEN para detenninar la longitud de una cadena literal. Especificaremos lo 
siguiente: 

Si (IF) la longitud de NOMBRE$(x) es mayor que 0, es decir, si ya hay un dato en ese 
elemento de la lista, entonces (THEN) ir a la linea 180 (que provoca el salto al siguiente 
elemento de la lista): 

135 IF LEN(NOMBRE$(x))>0 THEN 180 

Una solucion sencilla, iverdad? Los problemas de este tipo siempre tienen soluci6n si co- 
nocemos bien la lista de instrucciones y nos paramos a pensar un poco. Para casi todas 
las necesidades hay casi siempre al menos una instrucci6n; cuanto mayor es la experiencia 
en programacion, mis inmediatas son las soluciones. 

Vamos con otro requisito del programa: grabar los valores de las variables para poder car- 
garlos mas tarde. En la parte 7 del 'Curso de introducci6n' hemos explicado c6mo grabar 
programas (con la orden SAVE). Pero el programa no es mas que la herramienta que nos 
permite captar y manipular los datos; cuando grabamos el programa s61o estamos guar- 
dando la herramienta, no los valores de las variables. 

Asi pues, tenemos que escribir una secci6n del programa que grabe los valores de las va- 
riables. Para ello crearemos un 'fichero de datos'. 
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Lo primero es abrir (OPEN) un fichero en direccion de salida (OUT) d^dole el nombre 
de 'datos'. Despues escribiremos (WRITE) los valores de las variables NOMBRE$(x) y 
TEL$(x), de 1 a 100, en el fichero; finalmente, cerraremos (CLOSE) el fichero y retornare- 
mos (RETURN) al menii. Pondremos esta rutina en las lineas 350 y siguientes. Para no 
tener que escribir los numeros de linea, ejecutaremos la orden 

AUTO 350 

que inicia la numeraci6n automatica de las Imeas a partir del niimero 350: 

350OPENOUT"datos" 

360 FOR x-1 TO 100 

370 WRITE #9,N0MBRE$(x),TEL$(x) 

380 NEXT 

390 CLOSEOUT 

400 PRINT' Fin de la grabaclon de los datos" 

410 RETURN 

Cuando haya terminado de teclear la li'nea 410 y haya pulsado [RETURN], pulse [ESC] 
para interrumpir la funcidn AUTO. 

Como tenemos una rutina mas, tendremos que poner otro niimero de h'nea en la instruc- 
ci6n ON el GOSUB de la linea 100. Para ello vamos a corregir (editar, EDIT) la linea 100: 

100 ON el GOSUB 120,210,270,350 

A pjirtir de ahora, cada vez que elijamos la opci6n 4 del menu, el programa grabara el 
fichero de datos en el disco o en la cinta. 

Observe la linea 370, en la que se escriben los valores de NOMBRE$(x) y TEL$(x) en el 
disco o la cinta: la expresi6n #9 que aparece despues de WRITE es un 'indicador de canal' 
que especifica a qu6 canal debe el ordenador enviar los datos. El ordenador maneja 10 
canales: 

Los ocho primeros (#0 a #7) dirigen los datos a la pantalla [bien a la pantalla completa, 
bien a alguna ventana (WINDOW)]. 

El canal #8 es el de la impresora. 

Finalmente, el canal #9 es el que conecta el ordenador con la unidad de disco o de cinta; 
este es el que utilizamos en la instrucci6n 370. 
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Una digresion 



Hagamos un comentario sobre la orden AUTO que acabamos de conocer. Si se escribe 
sencillamente 

AUTO 

el ordenador empieza a numerar lineas a partir del 10 y va incrementando el niimero de 
10 en 10 cada vez que se pulsa [RETURN]. Si ya exlsten h'neas 10, 20, 30, etc., su conteni- 
do aparece en la pantalla segiin se va pasando por ellas (pulsando [RETURN]). Cuando 
aparece una linea en la pantalla, se la puede editar antes de pulsar [RETURN]. Esto da un 
metodo para editar comodamente lineas cuyos niimeros esten uniformemente espaciados. 



Volvemos al programa 



Ya hemos escrito las instrucciones que graban los datos en disco o en cinta. Ahora nos 
falta ocuparnos de la lectura de los datos para ponerlos a disposicion del programa. Como 
vamos a escribir una nueva rutina, tendremos que poner otro niimero de linea en la ins- 
truccion ON el GOSUB. Editemos la linea 100: 

100 ON el GOSUB 120,210,270,350,420 

Para leer los datos tenemos que empezar por abrir (OPEN) en direccion de entrada (IN) 
el fichero que tenemos en el disco o en la cinta con el nombre de 'datos' . Despues leemos 
con INPUT (por el canal #9) los valores de las variables NOMBRE$(x) y TEL$(x), de 1 
a 100, y finalmente cerramos (CLOSE) el fichero y retomamos (RETURN) al menu. Escri- 
ba las siguientes lineas: 

420 OPENIN "datos" 

430 FOR x=1 TO 100 

440 INPUT #9,NOMBRE$(x),TEL$(x) 

450 NEXT 

460 CLOSEIN 

470 PRINT' Fin de la carga de los datos" 

480 RETURN 

Si usted tiene un 464, recuerde que tendra que rebobinar la cinta antes de volver a cargar 
los datos. 



La genesis de un programa 2/11 



El fin del principio 



Por fin hemos conseguido un programa que realiza todas las fxmciones previstas. Todo 
lo que nos queda ahora es ocupamos de como presentar los resultados en la pantalla. 



El principio del fin 



Para mejorar el manejo de la pantalla vamos a afiadir unas cuantas instrucciones: 

34 MODE 1 

Esta instruccion establece el modo de pantalla y borra la pantalla al principio del progra- 
ma. Aflada ahora lo siguiente: 

36 WINDOW #1,13,30,10,14 

No se deje impresionar por esta instruccidn aparentemente tan complicada. Lo que hemos 
hecho es defthir una ventana en la pantalla para escribir en ella el menu. Despues de la 
palabra WINDOW, lo primero que ponemos es el numero del canal al que vamos a asig- 
n£irla; recuerde que podemos elegir cualquiera entre el y el 7. Ahora bien, si tenemos 
en cuenta que todos los textos que enviamos a la pantalla sin especificar numero de canal 
circulan por el #0, no vamos a dar este numero a nuestra ventana. Elegimos, pues, el nu- 
mero 1 . Los cuatro numeros que vienen a continuacion especifican el tamafio de la venta- 
na. Su significado no podia ser mis sencillo: columna del borde izquierdo, columna del 
derecho, primera fila y ultima fila, por este orden. En nuestro caso, despues de especificar 
el canal #1, hemos dicho al ordenador que la ventana empieza en la columna numero 13 
y termina en la numero 30, en horizontal, y que empieza en la fila 10 y termina en la 14, 
en vertical. 

Para dirigir los textos del menu al canal #1 debemos editar las lineas 40 a 80: 

40 PRINT #1,"1. Introd. datos" 
50 PRINT #1,"2. Listado" 
60 PRINT #1,"3. Busqueda" 
70 PRINT #1."4. Grabar datos" 
80 PRINT #1,"5. Cargar datos" 
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AfLadamos tambien 
85 LOCATE 7.20 

para situar el texto de la linea 90. 

Para borrar la pantalla cada vez que el programa retome al menu, modifiquemos la linea 
110: 

110 GOTO 34 

Adem^, para borrar la pantalla cada vez que se selecciona una opci6n del menu aiiadimos: 

95CLS 

Finalmente, incluiremos las tres b'neas siguientes para hacer que el retorno al menu sea 
controlado por el usuario: 

103 LOCATE 9,20 

105 PRINT "Pulse una tecia para volver al menu" 

107 IF INKEY$="" THEN 107 

La linea 103 especifica donde se debe escribir el mensaje de la linea 105. La linea 107 exa- 
mina el teclado para averiguar si se ha pulsado alguna tecla. Si no se ha pulsado ninguna, 
INKEY$ genera la cadena vacia y entonces se repite la ejecucion de la h'nea hasta que efec- 
tivamente se pulse alguna. fista es la forma habitual de programar la espera 'hasta que 
el usuario se decida', pues BASIC no pasa a la linea siguiente mientras no se pulse una 
tecla. 

Bueno, ya hemos terminado. O quiza no, porque podriamos incluir la posibilidad de mo- 
dificar o borrar nombres y mimeros de telefono, de ordenarlos alfabeticamente, de listar- 
los por la impresora, etc. Todas estas mejoras son posibles; podriamos seguir mejorando 
y depurando el programa indeflnidamente, pero en algun momento tenemos que poner 
el punto y aparte, y este es tan bueno como cualquier otro. Le dejamos, pues, con este 
programa de 'guia de tel6fonos', confiando en haberle abierto las puertas del arte de pro- 
gramar. Adecente el programa con la orden 

RENUM 

y grabelo en disco o en cinta; o b6rrelo si no le gusta. Quien sabe; quiza pueda necesitarlo 
algiin dia. 
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Listado final: 

10 REM guia de telefonos 

20 DIM NOMBRE$(100) 

30 DIM TEL$(100) 

40 MODE 1 

50 WINDOW #1.13.30,10.14 

60 PRINT #1."1. Introd. datos" 

70 PRINT #1."2. Listado" 

80 PRINT #1."3. Busqueda" 

90 PRINT #1."4. Grabar datos" 

100 PRINT #1."5. Cargar datos" 

110 LOCATE 7.20 

120 INPUT "Elija una opcion (1-5) ";el 

130 CLS 

140 ON el GOSUB 190,290.350.430.500 

150 LOCATE 9,20 

160 PRINT' Pulse una tecia para voiver al menu" 

170 IF INKEY$="" THEN 170 

180 GOTO 40 

190 FOR x=1 TO 100 

200 CLS 

210 IF LEN(NOMBRE$(x))>0 THEN 260 

220 PRINT'Pulse [RETURN] para terminal" 

230 INPUT;" Nombre ";NOMBRE$(x) 

240 IF NOMBRE$(x)="" THEN 270 

250 INPUT;" Telefono ";TEL$(x) 

260 NEXT 

270 PRINT "Fin de la entrada de datos" 

280 RETURN 

290 FOR x=1 TO 100 

300 IF NOMBRE$(x)="" THEN 330 

310 PRINT NOMBRE$(x);" ";TEL$(x) 

320 NEXT 

330 PRINT "Fin de la iista" 

340 RETURN 

350 INPUT "Buscar ";BUSCA$ 

360 FOR x=1 TO 100 

370 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 400 

380 PRINT NOMBRE$(x);" ";TEL$(x) 

390 END 
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400 NEXT 

410 PRINT' No lo encuentro" 

420 RETURN 

430OPENOUT"datos" 

440 FOR x=1 TO 100 

460 WRITE #9.N0MBRE$(x),TEL$(x) 

460 NEXT 

470 CLOSEOUT 

480 PRINT' Fin de la grabacion de los datos" 

430 RETURN 

600 OPENIN "datos" 

510 FOR x=1 TO 100 

520 INPUT #9,N0MBRE$(x),TEL$(x) 

530 NEXT 

640 CLOSEIN 

550 PRINT' Fin de la carga de los datos" 

660 RETURN 
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Capitulo 3 

Lista completa de las palabras clave del 
BASIC de AMSTRAD 



IMPORTANTE 

Es imprescindible que usted comprenda la terminologia y la notacidn utili- 
zadas en este capitulo. Para describir la sintaxis de las diversas instruccio- 
nes utilizamos tanto parentesis como corchetes. Es necesario distinguirlos, 
pues tienen significados diferentes. 

Toda instruccibn, o parte de instruccidn, no encerrada entre corchetes debe ser escrita tal 
como aquf se muestra. Por ejemplo, la instrucci6n END tiene la forma: 

END 

Usted tiene que escribir la palabra END literalmente. 
Cuando un texto esta en cursiva, por ejemplo 

numero-de-//hea 

no hay que teclear literalmente esas palabras. El texto es una indicaci6n del tipo de datos 
que se debe escribir. Por ejemplo, 

EDIT numero-de-tfnea 

significa que hay que escribir la palabra EDIT y a continuacidn un espacio y un mimero 
de linea: 

EDIT 100 
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Los parentesis ordinaries ( ) son obligatorios y ban de ser tecleados explicitamente. Por 
ejemplo, 

C0S(expres/6n-numerica ) 

exige que se escribem los parentesis rodeando la expresi6n numerica cuyo coseno se quiera 
calcular: 

PRINT COS(45) 

Finalmente, los corcbetes delimit£in elementos opcionales. Por ejemplo, 

RUN [numero-de-linea] 

significa que no es necesario poner un parametro despues de la palabra clave RUN, pero 
que si se puede incluir ese parametro; ademas, en caso de incluirlo, tiene que ser necesaria- 
mente un mimero de linea: 

RUN . . . o . . . RUN 100 



Caracteres especiales 



& o &H Prefijo para constante hexadecimal 
&X Prefijo para constante binaria 

# Prefijo para indicador de canal 



Tipos de datos 

Las cadenas literales pueden contener entre y 255 caracteres. Una expresion-literal es una 
expresion que toma como valor una cadena literal. Las cadenas literales se pueden conca- 
tenar (unir) con el operador + , a condicion de que la cadena resultante no tenga mas de 
255 caracteres. 

Los datos numericos pueden ser enteros o reales. En este sentido, los enteros tienen la li- 
mitacion adicional de estar comprendidos entre -32768 y +32767. El ordenador maneja 
mimeros reales con precisi6n ligeramente superior a nueve digitos. Los mimeros reales es- 
tan comprendidos en el msu-gen ±1.7E+38. El menor valor mayor que cero es aproxima- 
damente 2.9E-39. 
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Unaexpres/6n-num6r/ca es una expresion que toma como valor un luimero. Puede consis- 
tir en numeros concretos, en una variable numerica o en combinaciones de ambos: cual- 
quier cosa que no sea una expresidn-literal . 

Unaexpres/dn-de-numero de canal es una expres/6n-num6r/ca que identifica una ventana 
de la pantalla, la impresora o la unidad de disco. 

Una lista-de:-elemento describe un pardmetro que estd formado por una lista de elemen- 
tos separados por comas. Puede contener uno o varies elementos, sin mas limitacion que 
la longitud de la linea. 

Los indicadores de tipo son: 

% Entero 

! Real (por defecto) 

$ Literal 

La lista de las palabras clave tiene la siguiente estructura: 



PALABRA CLAVE 

Sintaxis 

Ejemplo 

Descripcion 

Palabras clave asociadas 



Las palabras clave pueden ser: 

Ordenes: operaciones que se ejecutan directamente. 

Funciones: operaciones que intervienen como argumentos de una expresion. 

Operadores: operaciones que actuan sobre argumentos matematicos. 

BASIC convierte todas las palabras clave de miniisculas a mayusculas cuando se lista el 
programa. En los ejemplos las mostraremos en mayusculas. Es conveniente que usted las 
introduzca en minusculas, pues entonces le sera mas facil detectar los errores, dado que 
las palabras clave erroneamente tecleadas seguiran apareciendo en minuscula en los 
listados. 
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Lista de palabras clave 

ABS 

ABS(expresidn-num^rica ) 

PRINT ABS(-67.98) 
67.98 

Funcidn. Calcula el valor absoluto de la expresidn dada; es decir, convierte los numeros 
negatives en positives. 

Palabras clave asociadas: SGN. 

AFTER 

AFTER retardo-de/-temporizadorf/iumero-de-tempor/zadorJ GOSUB numero-de-//nea 

10 AFTER 250 GOSUB 60:CLS 
20 PRINT "Adivine una letra en S segundos" 
30 a$=INKEY$:IF indicador=1 THEN END 
40 IF a$<>CHR$(INT(RND*26+97)) THEN 30 
50 PRINT a$;" es correcto. listed gana." 
55 SOUND 1,478:SOUND 1,358:END 
60 PRINT "demasiado tarda. Yo gano." 
70 SOUND 1,2000:indicador=1:RETURN 
run 

Orden. Invoca una subnitina de BASIC cuando ha transcurrido el tiempo especificado. 
El pardmetro retardo-de/-temporizador especifica el tiempo en unidades de 0.02 s (cin- 
cuentavos de segundo). 

El numero-de-temporizador (margen de a 3) especifica cudl de los cuatro temporizadores 
disponibles debe medir el tiempo. El temporizador numero 3 tiene la m^ma prioridad; 
el (que es el implicito), la minima. 

Cada temporizador puede tener una subnitina asodada. 

Para mds amplia informacidn sobre las intemipciones, consulte la parte 2 del capitulo ti- 
tulado 'Cuando usted guste . . .'. 

Palabras clave asociadas: EVERY, REMAIN, RETURN. 
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AND 



argumento AND argumento 

IF"juarf'<"pep«r' AND"perro">"gattf' THEN PRINT "verdadero" ELSE PRINT"fal80" 

verdadero 

IF"peprf'<"juarf' AND"gato">"perro" THEN PRINT "verdadero" ELSE PRINT "faiso" 

falso 

IF "juari"<" paper* AND"gatof'>"perrrf' THEN PRINT "verdaderof' ELSE PRINT "falsrf' 

falso 

PRINT 1 AND 1 

1 
PRINT AND 


PRINT 1 AND 



Operador. Realiza la operaci6n logica 'y' bit a bit entre enteros. El resultado es a menos que 
ambos bits sean 1 . 

Para vaAs amplia informacidn sobre operaciones Idgicas, consulte la parte 2 del capitulo titula- 
do 'Cuando usted guste . . . ' . 

Palabras clave asociadas: OR, NOT, XOR. 



ASC 

ASC(expres/dn-//tera/) 

PRINT ASCC'x") 
120 

Funcidn. Calcula el codigo ASCII del primer caricter de la expres/dn-Wtera/. 
Palabras clave asociadas: CHR$. 
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ATN 

ATN{expresi6n-num6rica ) 

PRINT ATN(I) 
0.785398163 

Funcidn. Calcula el 2irco cuya tangente es la expresidn-numerica . 

Observese que se puede utilizar DEG y RAD para hacer que el resultado se de en grados 
o en radianes, respectivamente. 

Palabras clave asociadas: COS, DEG, RAD, SIN, TAN. 

AUTO 

AUTO fnumero-de-/ineaJf,/ncrementoJ 

AUTO 100,50 

Ordefi. Genera numeros de linea AUTOmaticamente. El parametro opcional niimero-de- 
//nea especifica en qu6 niimero debe empezar la numeracion. Si se lo omite, el ordenador 
genera numeros de linea a partir del 10. 

El pardmetro opcional incremento especifica el salto que debe haber entre cada linea y 
la siguiente. Si se lo omite, el ordenador genera numeros de linea espaciados de 10 en 10. 
Si se genera un niimero de linea que ya ha sido utilizado, el ordenador la muestra en la 
pantalla y entonces se la puede editar, si es necesario. La linea editada susdtuye a la que 
estd en la memoria en el momento de pulsar [RETURN]. 

Para interrumpir el proceso"de numeracion automatica, pulse [ESC]. 

Palabras clave asociadas: ninguna. 

BIIM$ 

B I N$(expres/6n-enteraf ,expres/on-entera J ) 

PRINT BIN$(64,8) 
01000000 
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Funcion. Produce una cadena de digitos binarios que representan el valor de la primera 
expres/dn-entera, utilizando el niimero de digitos binarios especificados por la segunda 
expresidn-entera (margen de a 16). Si el niimero de digitos especificado es mayor que 
el necesario, la expresion resultante se completa con ceros por la izquierda; si el niimero 
de digitos especificado es demasiado pequeiio, la expresidn resultante no se trunca, sino 
que contiene todos los digitos que sean necesarios. 

La expres/dn-entera que se va a convertir en binario debe tener un valor comprendido en- 
tre -32768 y +65535. 

Palabras clave asociadas: DEC$, HEX$, STR$. 

BORDER 

BORDER colorlfiolorl 

10 REM 729 combinaciones para el borde! 

20 SPEED INK 5,5 

30 FOR a=0 TO 26 

40 FOR b=0 TO 26 

50 BORDER a,b:CLS:LOCATE 14,13 

60 PRINT "border" ;a;",";b 

70 FOR t=1 TO 500 

80 NEXT t,b,a 

run 

Orden. Gambia el color del borde de la pantalla. Si se especifican dos colores, el del borde 
alterna entre ambos, a una velocidad que se puede regular con la orden SPEED INK. El 
margen de colores es de a 26. 

Palabras clave asociadas: SPEED INK. 

BREAK 

Vease ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP. 
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CALL 

CM.Lexpresi6n-de-direcci6n-de-memoria[/ista-de:par6metroJ 

CALLO 

Orden. Pennite invocar desde BASIC una rutina escrita en c6digo de mdqnina. El ejem- 
plo anterior provoca la reinicializad6n de la miquina. 

Esta orden no debe ser utilizada si no se sabe cu^es son sus efectos. 

Palabras clave asociadas: UNT. 

CAT 

CAT 
CAT 

Orden. Da un catdlogo del contenido del disco o de la cinta. 

6128. Presenta en la pantalla, en orden alfanum^rico, los nombres completos de todos los 
ficheros, junto con las respectivas longitudes (en unidades de Kbytes, redondeadas por ex- 
ceso). Tambi6n se muestra el espacio libre que queda en el disco, asi como las identifica- 
ciones de la unidad y del usuario. 

Esta orden no afecta al programa actualmente residente en la memoria. 

464. El ordenador le pedird que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el bot6n PLAY ('reproducir') 
del magnetbfono y despues una de las teclas del ordenador. El motor del magnet6fono 
empezard a moverse y el ordenador escribird en la pantalla la lista de los ficheros que haya 
en la cinta a medida que los vaya encontrando. 

Para cada fichero se mostrard cada imo de los bloques integrantes, seguidos de un cardc- 
ter que indica el tipo de fichero: 

$ fichero de BASIC no protegido 

% fichero de BASIC protegido 

• fichero ASCII 

& fichero binario 
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El ordenador escribe 

Ok 

al final de la linea cuando ha terminado de leer sin incidentes el fichero; esto indica que 
habria podido cargar el fichero en memoria si lo hubiera intentado. 

La instruccion CAT no afecta al programa residente en la memoria del ordenador. 

Si un fichero ha sido grabado sin nombre, CAT escribe 

Unnamed file 

('fichero sin nombre'). 

El proceso se puede interrumpir en cualquier momento pulsando [ESC]. 

Palabras clave asociadas: LOAD, RUN, SAVE. 

CHAIN 

CH Al N nombre-de-f'ichero[fixpresi6n-de-numero-de-linea] 

CHAIN "programa.bas",350 

Orden. Lee un programa grabado en disco y lo carga en la memoria reemplsizando al ac- 
tual. Inicia la ejecucion del nuevo programa, bien desde el principio, bien desde una li'nea 
especificada por el parametro opcional expres\6n-de-numero-de-\\r\ea . 

Los ficheros protegidos (grabados con SAVE . . . .p) se pueden cargar y ejecutar con esta 
orden. 

464, No es necesario especificar el nombre del programa si se pretende leer el primero que 
el ordenador encuentre en la cinta. 

El ordenador le pedira que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY del magnet6fo- 
no y despues una de las teclas del ordenador. El motor del magnetofono empezard a mo- 
verse y el ordenador cargara el fichero. 
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En la pantalla se mostraran los mensajes de carga: 
Loading NOMBREFI block 1 

y asi sucesivamente para los restantes bloques hasta que el fichero este cargado. 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados, 
y usted debe asegurarse de que ha pulsado el boton PLAY. En el caso de los ficheros gra- 
bados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efec- 
tos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 
Palabras clave asociadas: CHAIN MERGE, LOAD, MERGE. 

CHAIN MERGE 

CHAIN MERGE nombre-de-fichero[,expresi6n-de-numero-de-linea] 

[.DELETE margen-de-numeros-de-linea] 

CHAIN MERGE "nuevopro.bas".750.DELETE 400-680 

Orden. Lee un programa grabado en el disco, lo carga en la memoria mezclandolo con 
el actual y empieza a ejecutar el programa resultante, bien desde el principio, bien desde 
una li'nea especificada por el parametro opcional expres/6n-de-numero-de-/rnea . Si se de- 
sea borrar parte del programa original antes de iniciar la carga del nuevo, se puede utilizar 
la opcion DELETE margen-de-numeros-de-/inea . 

Observese que las lineas del programa que se carga sustituyen a las que tuvieran el mismo 
mimero en el programa original. 

Los ficheros protegidos (grabados con SAVE . . . ,p) no se pueden cargar con esta orden. 

464. No es necesario especificar el nombre del programa si se pretende leer el prirnero que 
el ordenador encuentre en la cinta. 

El ordenador le pedira que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY del magneto fo- 
no y despues una de las teclas del ordenador. El motor del magnetofono empezara a mo- 
verse y el ordenador cargara el fichero. 
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En la pantalla se mostraran los mensajes de carga: 
Loading NOMBREFI block 1 

y asi sucesivamente para los restantes bloques hasta que el fichero este cargado. 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados, 
y usted debe asegurarse de que ha pulsado el boton PLAY. En el case de los ficheros gra- 
bados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efec- 
tos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 
Palabras clave asociadas: CHAIN, DELETE, LOAD, MERGE. 

CHR$ 

CH R$(expres;dn-entera ) 

10 FOR x=32 TO 255 
20 PRINT x;CHR$(x). 
30 NEXT 
run 

Funcion. Convierte la expresion-entera , que tiene que estar en el margen de a 255, en 
su caracter equivalente. El conjunto de caracteres del AMSTRAD se muestra en la parte 
3 del capitulo titulado 'Para su referenda . . .'. 

Observese que los mimeros a 31 generan caracteres de control; por esa razon los hemos 
excluido del ejemplo anterior. 

Palabras clave asociadas: ASC. 
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CINT 

CI NT(expresidn-num6rica ) 

10 n=1.9999 
20 PRINT CINT(n) 
run 
2 

Funcion. Aproxima el valor de la expres(6n-num6rica a un niimero entero comprendido 
en el margen de -32768 a +32767. 

Palabras clave asociadas: CREAL, FIX, INT, ROUND, UNT. 

CLEAR 

CLEAR 

CLEAR 

Orden. Borra todas las variables (iguala a cero las numericas y a la cadena vacia las litera- 
les). Ademas, se abandonan los ficheros que esten abiertos, se borran todas las listas y 
funciones definidas por el usuario y BASIC retorna al modo de radianes para el calculo 
de funciones trigonometricas. 

Palabras clave asociadas: ninguna. 

CLEAR INPUT 

CLEAR INPUT 

10CLS 

20 PRINT "Teclee letras ahorai" 

30 FOR t=1 TO 3000 

40 NEXT 

50 CLEAR INPUT 

run 

Orden. Desecha todos los caracteres tecleados antes y que todavia esten en el tamp6n del 
teclado; es decir, borra el tampdn del teclado. 
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Para observar el efecto de esta orden, ejecute el programa ejemplo y escriba letras cuando 
el ordenador se lo pida. Borre luego la linea 50 y vuelva a ejecutar el programa. 

Palabras clave asociadas: INKEY, INKEY$, JOY. 

CLG 

CLG Itintal 

LOCATE 1.20 
CLG 3 

Orden. Borra la pantalla grdfica, dejdndola del color del papel de grificos. Si se especifica 
la tinta, el papel de grdficos toma ese color. 

Palabras clave asociadas: CLS, GRAPHICS PAPER, INK, ORIGIN. 

CLOSEIN 

CLOSEIN 

CLOSEIN 

Orden. Cierra el fichero de disco que este abierto en direccion de entrada (si lo hay). (Vea- 
se OPENIN.) 

Palabras clave asociadas: EOF, OPENIN. 

CLOSEOUT 

CLOSEOUT 

CLOSEOUT 

Orden. Cierra el fichero de disco que este abierto en direccion de salida (si lo hay). (Vease 
OPENOUT.) 

464. El ordenador va enviando datos a una porcion de la memoria denominada 'tamp6n'. 
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Si el tampon esta parcialmente ocupado cuando se ejecuta la orden CLOSEOUT, el orde- 
nador emite el mensaje 

Press REC and PLAY then any key: 

tras lo cual vacia el tampon hacia la cinta. 

Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo 

Saving NOMBREFI block x 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnetofono. En 
el caso de los ficheros grabados en disco, el ordenador ignora el distintivo !. Observe que 
el signo ! no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje: 

Broken in 
Palabras clave asociadas: OPENOUT. 

CLS 

CLS [ffexpresion-de-numerode-canal] 

10 PAPER #2,3 
20 CLS #2 
run 

Orden. Borfa la ventana (canal de pantalla) especificada, tiiiendola del color del papel. 
Si no se especifica ninguna expresion-de-numero-de-canal, el ordenador borra la panta- 
lla #0. 

Palabras clave asociadas: CLG, INK, PAPER, WINDOW. 

CONT 

CONT 
CONT 
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Orden. Reanuda la ejecucion del programa cuando este ha sido interrumpido, bien por- 
que se ha pulsado la tecla [ESC] dos veces, bien porque el programa ha encontrado la 
instruccion STOP. CO NT solamente puede continuar el programa en el supuesto de que 
no se lo haya modificado durante la interrupcion y de que no se trate de un programa 
protegido. 

Palabras clave asociadas: STOP. 

COPYCHR$ 

COPYCH R$( #expresidn-de-numero-de-cana/) 

10CLS 

20 PRINT "Extremo superior izquierdo" 

30 LOCATE 1,1 

40 a$= COPYCH R${#0) 

50 LOCATE 1,20 

60 PRINT a$ 

run 

Funcion. Lee el caracter que hay en la posicion actual del cursor; la ventana tiene que ser 

especificada. El programa ejemplo lee el caracter que esta en la posicion 1,1 y lo escribe 

en la posicion 1,20. 

Si el caracter no es reconocible, esta funcion genera la cadena vacia. 

Palabras clave asociadas: LOCATE. 

COS 

COS{expres(6n-numer/ca ) 

DEG 

PRINT COS(45) 
0.707106781 

Funcion. Calcula el coseno de la expreslon-numerica . 

Observese que se puede utiUzar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, DEG, RAD, SIN. 
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CREAL 

CREAL(expres/dn-num6r/ca ) 

10 a=PI8 

20 PRINT CINT(a) 

30 PRINT CREAUa) 

run 

3 

3.14159265 

Funcidn. Convierte el valor de la expresidn-num^rica , cualquiera que sea su tipo, en un 
niimero real. 

Palabras clave asociadas: CI NT. 

CURSOR 

CURSOR [conmutador-del-sistemaK,conmutador-del-usuario] 

10 CURSOR 1 

20 PRINT "pregunta?"; 

30 a$=INKEY$:IF a$="" THEN 30 

40 PRINT a$ 

50 CURSOR 

run 

Orden. El cursor puede ser activado o inhibido por dos conmutadores: el del sistema y 
el del usuario. Esta orden controla los dos conmutadores. Los parametros pueden ser 
(inhibido) o.l (activado). En la instrucci6n INKEY$ el cursor esta normalmente oculto, 
pero en el programa ejemplo ha sido activado por el valor 1 del parametro conmutador- 
del-sistema en la linea 10. 

Para que el cursor sea visible tienen que estar a 1 los dos conmutadores. El ordenador 
activa automaticamente el conmutador del sistema para la instruccion INPUT, pero lo de- 
sactiva para INKEY$. 

Es conveniente ocultar el cursor antes de escribir texto en la pantalla. 

Se puede omitir cualquiera de los pardmetros, pero no los dos. Cuando se omite uno de 
los parametros, la situaci6n del correspondiente conmutador no se modifica. 

Palabras clave asociadas: LOCATE. 
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DATA 

DATA Hsta-de:constante 

10 FOR x=1 TO 4 

20 READ nombre$,apellido$ 

30 PRINT "Don ";nombre$;" ";apellido$ 

40 NEXT 

50 DATA Manuel,Gonzalez,Daniel,Garcia 

60 DATA Felipe,Revilla,Ernesto,Diaz 

run 

Orden. Identifica las Ifneas en las que estan contenidos los datos que pueden ser leidos 
con la instnicci6n READ. Cada vez que se lee un dato, el 'puntero' pasa a seflalar el si- 
guiente elemento de la lista. Se puede utilizar la instrucci6n RESTORE para hacer que 
el puntero seiiale una Unea de datos determinada. 

En la parte 2 del capitulo titulado 'Cuando usted guste . . . ' daremos mds amplia informa- 
ci6n sobre los datos de este tipo. 

Palabras clave asociadas: READ, RESTORE. 

DEC$ 

DEC$(expresi6n-numerica^/ant///a-de- formate) 

PRINT DEC$(10E7."PtPt#########,.##") 
Pt10,000,000.00 

Funcidn. Produce una representacidn en forma de cadena decimal de la expresidn- 
r\um§r\ca utilizando la p/ant//(a-de-formato especificada. 

La plantilla de formato s61o puede contener los caracteres siguientes: 
+ - Pt $ * # . . t 

La utilizacion de estos 'especificadores de formato' se describe en PRINT USING. 
Palabras clave asociadas: BIN$, HEX$. PRINT USING, STR$. 
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DEFFN 

DEF FN nombre-de-la-funcidn[{parametros-de-forma]]=expresi6n 

10 t=TIME/300 

20 DEF FNreloj=IIVIT(TIME/300-t) 

30 EVERY 100 GOSUB 50 

40 GOTO 40 

50 PRINT "el programa se ejecuto hace"; 

60 PRINT FNreloj;"segundos" 

70 RETURN 

run 

Orden. BASIC permite que el programa defina y utilice funciones. DEF FN realiza la pri- 
mera parte de ese mecanismo: crea una funcion especi'fica del programa; una vez definida, 
la funcion se maneja de la misma forma que las funciones intrinsecas de BASIC. 

(Notese en el ejemplo anterior que el valor de la funcion FNreloj sigue siendo actualizada 
ininterrumpidamente, aunque se imponga una pausa al programa pulsando [ESC] dos ve- 
ces para luego reanudarlo con CONT.) 

Palabras clave asociadas: ninguna. 

DEFIIMT 

DEFINT Usta-de:margen-de-letras 

10 DEFINT n 
20 numero=123.456 
30 PRINT numero 
run 
123 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indi- 
cador expli'cito de tipo (!%$), el ordenador considera que es del tipo implicito. Esta or- 
den hace que el tipo implicito sea 'variable entera'. La orden afecta a todas las variables 
cuyos nombres empiecen por la letra o letras especificadas. Se puede especificar una lista: 

DEFINT a,b,c 
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o bien un margen de iniciales: 

DEFINT a-z 
Palabras clave asociadas: DEFREAL, DEFSTR. 

DEFREAL 

DEFREAL lista-de-.margen-de-letras 

DEFREAL x,a-f 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida.de un indi- 
cador explicito de tipo (! % $), el ordenador considera que es del tipo implicito. Esta or- 
den hace que el tipo implicito sea 'variable real' . La orden afecta a todas las variables Cu- 
yos nombres empiecen por la letra o letras especificadas. Se puede especificar una lista: 

DEFREAL a,b,c 

o bien un margen de iniciales: 

DEFREAL a-z 
Palabras clave asociadas: DEFINT, DEFSTR. 

DEFSTR 

DEFSTR //sta-de:margen-de-/etras 

10 DEFSTR n 

20 nombre="Amstrad" 

30 PRINT nombre 

run 

Amstrad 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indi- 
cador explicito de tipo (! % $), el ordenador considera que es del tipo implicito. Esta or- 
den hace que el tipo implicito sea 'variable litersd'. La orden afecta a todas las variables 
cuyos nombres empiecen por la letra o letras especificadas. 
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Se puede especificar una lista: 

DEFSTR a,b,c 
o bien un margen de iniciales: 

DEFSTR a-z 
Palabras clave asociadas: DEFIIMT, DEFREAL. 

DEG 

DEG 
DEG 

Orden. Hace que BASIC considere que los valores de los arcos que intervienen en los cdl- 
culos trigonometricos estdn expresados en grades, no en radianes. La situaci6n implicita 
para las funciones SIN, COS, TAN y ATN es la inversa: radianes. DEG cambia de radia- 
nes a grades; las 6rdenes RAD, NEW, CLEAR, LOAD, RUN, etc. cambian de grades 
a radianes. 

Palabras clave asociadas: ATN, COS, RAD, SIN, TAN. 

DELETE 

DELETE margen-de-numeros-de-//nea 
DELETE 100-200 

Orden. Borra la instruccidn o grupo de instrucciones especificado por margen-de-numeros- 
de-/(nea. 

Si se omite el primer numero demargen-de-numeros-de-/('nea, se entiende 'desde el princi- 
pio del programa hasta . . . '; si se omite el segundo numero, se entiende ' . . . hasta el final 
del programa'. Asi, 

DELETE -200 

borra las primeras lineas del programa, hasta la 200 inclusive. En cambio. 
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DELETE 50- 

borra desde la linea 50 en adelante. Finalmente, 

DELETE 

borra el programa completo. 

Palabras clave asociadas: CHAIN, MERGE, RENUM. 

DERR 

DERR 

LOAD "xyz.abc" 

XYZ .ABC not found 
Ready 

PRINT DERR 
146 

Funcidn. Toma como valor el ultimo c6digo de error detectado por el sistema de archive 
en disco. Se puede utilizar el valor de DERR para determinar que error se ha producido. 
Vease en el capitulo *Para su referenda . . . ' la Hsta de los mensajes de error. 

Palabras clave asociadas: ERL, ERR, ERROR, ON ERROR GOTO, RESUME. 



Dl 

Dl 



10 CLS:TAG:EVERY 10 GOSUB 90 

20 X1=RND*320:X2=RND*320 

30 Y=200+RND*200:C$=CHR$(RND*255) 

40 FOR X=320-X1 TO 320+X2 STEP 4 

50 Dl 

60 MOVE 320.0,1:MOVE X-2,Y:M0VE X,Y 

70 PRINT" ";C$;:FRAME 

80 EI:NEXT:GOTO 20 

90 MOVE 320,0:DRAW X+8.Y-16.0:RETURN 

run 
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Orden. Inhibe interrupciones (a excepcion de [ESC]) hasta que se las habilite explicita- 
mente con El o implicitamente con el RETURN en el que termina la subrutina invocada 
como consecuencia de la interrupcion. 

Notese que al entrar en una rutina de interrupcion se inhiben automaticamente todas las 
interrupciones de prioridad igual o inferior. 

Esta orden se utiliza para asegurar que el programa funcione sin interrupcion; por ejem- 
plo, cuando dos rutinas estan compitiendo por el uso de recursos comunes. En el ejemplo 
anterior, el programa principal y la subrutina de interrupcion estan compitiendo por el 
uso de la pantalla grafica. 

En la parte 2 del capitulo 'Cuando usted guste ..." daremos mas amplia informacion a 
este respecto. 

Palabras clave asociadas: AFTER, El, EVERY, REMAIN. 

DIM 

DIM Hsta-de:variable-indexada 

10CLS 

20 DIM amigo$(5),telefono$(5) 

30 FOR n=1 TO 5 

40 PRINT "Annlgo numero:";n 

50 INPUT "Nombre ";amigo$(n) 

60 INPUT "Telefono ";telefono${n) 

70 PRINT 

80 NEXT 

90 FOR n=1 TO 5 

100 PRINT n;amlgo$(n),telefono${n) 

110 NEXT 

run 

Orden. DIMensiona listas. DIM hace una reserva de espacio para los elementos de la lista 
y especifica cual va a ser el maximo valor del I'ndice. BASIC requiere que se le informe 
del tamaiio que debe reservar para las listas; sin embargo, permite el manejo de listas no 
dimensionadas (es decir, no declaradas con una orden DIM) a condicion de que el indice 
no sobrepase el valor 10. 

Una lista es una 'variable indexada', lo que quiere decir que se utiliza un solo nombre de 
variable para representar varios elementos; cada elemento esta identificado por su 'indi- 
ce'. Las listas pueden ser controladas facilmente mediante bucles de tipo FOR . . . NEXT, 
identificando el indice con la variable del contador del bucle. 
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Observese que el valor mi'nimo del indice (esto es, el primer elemento utilizable) es el cero. 

Un vector es una lista monodimensional. Tambien se pueden utilizar listas multidimensio- 
nales {matrices). Por ejemplo, una lista tridimensional se dimensionan'a con 

DIM posicion$(20,20,20) 

y un elemento concreto seria 

posicion$(4,5,6) 
Palabras clave asociadas: ERASE. 

DRAW 

DRAW coordenada-x,coordenada-yfit/ntaJf,modo-de-tintaJJ 

10 MODE OiBORDER OiPAPER 0:INK 0,0 
20 x=RND*640:y=RND*400:z=RND*15 
30 DRAW x,y,z 
40 GOTO 20 
run 

Orden. Dibuja en la pantalla grafica una recta que va desde la posicion actual del cursor 
grafico hasta el punto de coordenadas x, y especificadas. Se puede especificar el color de 
t\nta con el que se desea dibujar la recta (margen: a 15). 

El modo-de-t/nta es opcional y determina el modo de interaccion entre la tinta con que 
se dibuja y la que ya esta en la pantalla grafica. Los cuatro modos son los siguientes: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAWR, GRAPHICS PEN, MASK. 
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DRAWR 

DRAWR incremento-de-x.incremento-de-y[.[tintaUjnodo-de-tinta]] 

10CLS:PRINT"escalera" 

20 MOVE 0,350:FOR n=1 TO 8 

30 DRAWR 50,0 

40 DRAWR 0,-50 

50 NEXT:MOVE 348,0:FILL 3 

60 GOTO 60 

run 

Orden. Dibuja en la pantalla grdfica una recta que va desde la posici6n actual del cursor 
grafico hasta el punto especificado en coordenadas relativas por incremento-de-x e 
incremento-de-y . Se puede especificar el color de t/nta con el que se desea dibujar (mar- 
gen: a 15). 

El modo-de-t\nta es opcional y determina el modo de interaccidn entre la tinta con que 
se dibuja y la que ya esta en la pantalla grafica. Los cuatro modos son los siguientes: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAW, GRAPHICS PEN, MASK. 

EDIT 

EDIT numero-de-Unea 
EDIT 20 

Orden. Escribe en la pantalla la linea especificada por numero-de-/ined y la deja dispuesta 
para ser editada, con el cursor sobre ella. 

Palabras clave asociadas: AUTO, LIST. 
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El 

El 
El 

Orden. Habilita interrupciones que hayan sido inhibidas previeimente con Dl. 

Si se inhiben las interrupciones en una subrutina de interrupcidn, BASIC las habilita 
cuando encuentra el RETURN del final de la subrutina. 

En la parte 2 del capitulo titulado 'Cuando usted guste . . . ' daremos mds amplia informa- 
cion acerca de las interrupciones. 

Palabras clave asociadas: AFTER, Dl, EVERY, REMAIN. 

ELSE 

(V6ase IF.) 

END 

END 

END 

Orden. Termina la ejecuci6n del programa y devuelve el ordenador al modo directo. En 
un mismo programa se pueden incluir varias ordenes END; se supone un END implicito 
despues de la ultima linea del programa. 

Palabras clave asociadas: STOP. 



EIVT 

ENTnumero-de-envo/vente[^ecc/dn-de-envo/venteJ[^ecci6n-de-envo/venteJ 

f^ecc(<3n-de-envo(vente][^ecc/on-de-envo/venteJ[^ecci6n-de-envo/vente] 

10 ENT 1,10,-50,10,10,50.10 
20 SOUND 1,500,200,10„1 
run 
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Orden. Define la caracteristicas de la envolvente de tono especificada por numero-de- 
envoWente (margen: de 1 a 15) e invocada como envo/vente-de-tono en la orden SOUND. 
Si el numero-de-envo/vente es negative (margen de - 1 a - 15), la envolvente se repite 
hasta el final de la duraclon especificada en la orden SOUND. 

Cada secc/dn-de-envo/vente puede constar de 2 o 3 parametros. 

Si se utilizan 3 parametros, tienen el significado siguiente: 

numero-de-esca/ones^/tura-de-cada-esca/6n,t/empo-de-pausa 

Parametro 1: numero-de-esca/ones 

Este parametro especifica en cuantas etapas queremos que la nota evolucione a lo largo 
de la duracion de la seccion de la envolvente. Por ejemplo, si una seccion de la nota ha 
de durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal caso, 
el parametro numero-de-esca\ones tendra que ser 10. 

El margen de este parametro es de a 239. 

Parametro 2: a/tura-de-cada-esca/dn 

En cada etapa, el tono puede variar con respecto al de la anterior en un niimero de unida- 
des comprendido entre - 128 y +127. Las variaciones negativas representan aumentos del 
tono (tono mas agudo); las variaciones negativas reducen el tono (tono mas grave). El va- 
lor minimo del periodo de tono es 0. En el capitulo 'Para su referencia . . . ' se da la lista 
completa de los periodos de tono. 

Parametro 3: t/empo-de-pausa 

Este parametro especifica la duracion de cada escalon (intervalo entre cada dos saltos) en 
unidades de centesimas de segundo. El margen de valores es de a 255; esto significa que 
la duracion. maxima de cada escalon es de 2.56 segundos (el se considera como 256). 

Si se utilizan 2 parametros, su significado es el siguiente: 
per/odo-de-tono,tiempo-de-pausa 

Parametro 1: periodo-de-tono 

Este parametro da un nuevo valor absolute del periodo de tono. (Vease el parametro 2 
de la orden SOUND.) 



3/26 Lista completa de las palabras clave del BASIC de AMSTRAD 



Parametro 2: t/empo-de-pausa 

Este parametro especifica la duracion de escalon en unidades de centesimas de segundo. 
El margen de valores es de a 255, es decir, el valor maximo es 2.56 segundos, ya que 
el se considera como 256. 

General 

La suma de todos los t;empos-de-pausa no debe ser mayor que el parametro durac/on de 
la orden SOUND; de lo contrario, el sonido habrd concluido antes de que se hayan com- 
pletado todas las etapas de la envolvente. (En tal caso, el ordenador ignora el resto del 
contenido de la envolvente.) 

Analogamente, si la duracion especificada en SOUND es mayor que la impuesta por la 
suma de todos los tiempos-de-pausa , la nota continuara sonando aunque se hayan termi- 
nado los escalones de la envolvente de tono, y lo hara con el tono correspondiente al de 
la ultima etapa de la envolvente. 

En una orden ENT se puede definir un maximo de 5 secciones-de-envolvente (cada una 
de las cuales puede constar de 2 o 3 parametros). 

La primera etapa de una envolvente de tono se ejecuta inmediatamente. 

Cada vez que se define una envolvente de tono, se anula la definicion anterior. 

Si se define un numero-de-envolvente sin especificar parametros para ninguna de sus sec- 
ciones, se anula la definicion anterior. 

En la parte 2 del capi'tulo 'Cuando usted guste . . . ' daremos mas informacion sobre las 
envolventes de tono. 

Palabras clave asociadas: ENV, SOUND. 



ENV 

ENV numero-de-envolvente[fiecci6n-de-envolvente]l^ecci6n-de-envoivente] 

[fiecci6n-de-envotvente][^ecci6n-de-envolvente]l^eccion-de-envolvente] 

10 ENV 1.15,-1.10,15.1,10 
20 SOUND 1,200,300,15,1 
run 

Orden. Define las caracteristicas de la envolvente de volumen especificada por numero- 
de-envolvente (margen: de 1 a 15) e invocada como envolvente-de-volumen en la orden 
SOUND. 
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Cada secci6n-de-envolvente puede constar de 2 o 3 par^metros. 
Si se utilizan 3 pardmetros, tienen el significado siguiente: 

numero-de-escalones^ltura-de-cada-escal6n,tiempo-de-pausa 

Par^metro 1: numero-de-escalones 

Este pardmetro especifica en cuantas etapas queremos que la nota evolucione antes de 
completar la secci6n de la envolvente. Por ejemplo, si una seccidn de la nota ha de durar 
10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal caso, el pari- 
metro nOmero-de-escalones serd 10. 

El margen de este pardmetro es de a 127. 

Pardmetro 2: altura-de-cada-escal6n 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un numero de 
unidades comprendido entre y 15. Estos 16 niveles de sonido son los mismos que se defi- 
nen en la instrucci6n SOUND. Sin embargo, el margen del pardmetro altura-de-cada- 
escaldn es de - 128 a + 127; el nivel del volumen vuelve a cada vez que sobrepasa el 15. 

Pardmetro 3: tiempo-de-pausa 

Este pardmetro especifica la duraci6n de cada escal6n en unidades de cent^simas de segun- 
do. El margen de valores es de a 255; esto significa que la duracidn mdxima de cada 
escaldn es de 2.56 segundos (el se considera como 2M). 

Si se utilizan 2 pardmetros, su significado es el siguiente: 
envolvente-de-hardware,periodo-de-envolvente 

Pardmetro 1: envolvente-de-hardware 

Este pardmetro especifica el valor que se debe enviar al registro de forma de envolvente? 
del generador de sonido. 

Pardmetro 2: periodo-de-envolvente 

Este pardmetro especifica el valor que se debe enviar a los registros de periodo de envol- 
ventes del generador de sonido. 

Para utilizar las envolventes de hardware es necesario que el usuario conozca el funciona- 
miento interno del generador de sonido. De no ser asf, le recomendamos que utilice las 
envolventes definidas por programa, incorporado un tiempo-de-pausa adecuado. 
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General 

La suma de todos los tiempos-de-pausa no debe ser mayor que el parametro duracidn de 
la orden SOUND; de lo contrario, el sonido habrd concluido antes de que se hayan com- 
pletado todas las etapas de la envolvente. (En tal caso, el ordenador ignora el resto del 
contenido de la envolvente.) 

Andlogamente, si la duracion especificada en SOUND es mayor que la impuesta por la 
suma de todos los tiempos-de-pausa , la nota continuard sonando aunque se hayan termi- 
nado los escalones de la envolvente de tono, y lo hard con nivel de volumen igu£d al de 
la ultima etapa de la envolvente. 

En una orden ENV se puede defmir un mdximo de 5 secciones-de-envo/vente (cada una 
de las cuales puede constar de 2 o 3 parametros). 

La primera etapa de una envolvente de volumen se ejecuta imnediatamente. , 

Cada vez que se define una envolvente de volumen, se anula la definicion anterior. 

Si se define un numero-de-envolvente sin especificar parametros para ninguna de sus sec- 
ciones, se anula la definicion anterior. 

En la parte 2 del capitulo 'Cuando usted guste ..." daremos mas informacion sobre las 
envolventes de volumen. 

Palabras clave asociadas: ENT, SOUND. 

EOF 

EOF 

10 OPENIN "keys.wp" 

20 WHILE NOT EOF 

30 LINE INPUT #9,a$ 

40 PRINT a$ 

50 WEND 

60 CLOSEIN 

run 

Funcion. Comprueba si se ha alcanzado el final del fichero (End of File). Da el valor 1 
(verdadero) si no hay ningun fichero abierto o si se ha alcanzado el final del fichero; da 
(falso) en caso contrario. 

Palabras clave asociadas: OPENIN, CLOSEIN. 
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ERASE 

E RASE lista-deinombre-de-variable 

DIM a(100),b$(100) 
ERASE a,b$ 

Orden. Borra el contenido de una o varias listas y libera el espacio de memoria ocupado 
por ellas. 

Palabras clave asociadas: DIM. 



ERL 

ERL 

10 ON ERROR GOTO 30 

20 GOTO 1000 

30 PRINT "Error en la llnea";ERL 

40 END 

run 

Funcion. Da el numero de la Ifnea en la que se ha detectado el ultimo error. En el progra- 
ma ejemplo, el error esta en la linea 20, y este es el numero generado por ERL en la linea 
30. 

Palabras clave asociadas: DERR, ERR, ERROR, ON ERROR GOTO, RESUME. 

ERR 

ERR 

GOTO 500 
Line does not exist 
Ready 
PRINT ERR 
8 

Funcion. Da el numero del ultimo error detectado. En el capitulo titulado 'Para su 
referenda . . . ' se da la lista de los mensajes de error. El programa ejemplo muestra que 
el error numero 8 es 'Line does not exist' ("no existe esa linea"). 
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Palabras clave asociadas: DERR, ERL, ERROR, ON ERROR GOTO, RESUME. 

ERROR 

ERROR expresion-entera 

10 IF INKEY$="" THEN 10 ELSE ERROR 17 
run 

Orden. Invoca el error de niimero especificado por expresion-entera . En el capitulo 'Para 
su referenda ..." se da la lista de los mensajes de error 1 a 32. BASIC trata el ERROR 
como si efectivamente lo hubiera detectado: salta a la rutina de gestion de errores (si la 
hay) y genera los valores correctos de ERR y ERL. 

La orden ERROR seguida de una expres/on-entera cuyo valor este entre 33 y 255 sirve 
para crear mensajes de error a medida de las necesidades del programador, como ilustra 
el siguiente ejemplo: 

10 ON ERROR GOTO 100 

20 INPUT "Escriba una letra ";a$ 

30 IF LEN{A$)<>1 THEN ERROR 100 

40 GOTO 20 

100 IF ERR=100 THEN 110 ELSE 130 

110 PRINT CHR$(7) 

120 PRINT "Le dije que UNA letra!" 

130 RESUME 20 

run 

Palabras clave asociadas: ERL, ERR, ON ERROR GOTO, RESUME. 

EVERY 

EVERY periodo-de-t/empof,numero-de-tempor/zadorJ GOSUB numero-de-/('nea 

10 EVERY 50,1 GOSUB 30 

20 GOTO 20 

30 SOUND 1.20 

40 RETURN 

run 
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Orden. Invoca una subrutina de BASIC a intervalos de tiempo regiilares. El per/odo-de- 
tiempo especifica el intervalo en unidades de 0.02 s (cintuentavos de segundo). 

El numero-de/-temporizador (margen de a 3) especifica cudl de los cuatro cron6metros 
se debe utilizar. El temporizador rnimero 3 tiene la prioridad mas alta; el niimero (que 
es el implicito), la mds baja. 

Cada uno de los cuatro cron6metros puede tener una subrutina asociada. 

En la parte 2 del capitulo 'Cuando usted guste ..." daremos mds amplia informacion 
acerca de las interrupciones. 

Palabras clave asociadas: AFTER, REMAIN. 

EXP 

EXP(expres(dn-numerica ) 

PRINT EXP(6.876) 
968.743625 

Funcidn. Calcula el niimero e elevado a la potencia dada por expresi6n-num6rica . El nii- 
mero e es la base de los logaritmos neperianos, aproximadamente igual a 2.7182818. 

Palabras clave asociadas: LOG. 

FILL 

FILL t/nta 

10 MODE 

20 FOR n=1 TO 500 

30 PRINT'O"; 

40 NEXT 

50 colorpluma=2+RND*13 

60 FILL colorpluma 

70 GOTO 50 

run 

Orden. Rellena una regi6n de la pantalla grafica. Los limites de la regi6n son rectas dibu- 
jadas con la tinta de la pluma de grdficos actual o con la tinta utilizada para rellenar (mar- 
gen de a 15). 
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El rellenado se realiza partiendo de la posicion actual del cursor grdfico. Si esta posici6n 
est^ en un limite, no se produce rellenado alguno. 

Palabras clave asociadas. GRAPHICS PEN. 



FIX 

FIX{expresi6n-numerica ) 

PRINT FIX(9.99999) 
9 

Funcidn. Da la parte entera de la expresion-numerica , ignorando su parte decimal. 
Palabras clave asociadas: CINT, INT, ROUND. 

FN 

Vease DEF FN. 

FOR 

FOR vanable-sencilla=pnncipio TO fin [STEP sa/toj 

10 FOR n=2 TO 8 STEP 2 

20 PRINT n; 

30 NEXT n 

40 PRINT ", y ocho dieciseis" 

run 

Orden. Ejecuta el grupo de instrucciones comprendidas entre FOR y NEXT un niimero 
dado de veces, incrementando el valor de la variable de control (variable del contador) 
en un niimero especificado por sa/to desde principio hasta fin . Si no se especifica ningiin 
valor de salto para STEP, se supone el 1 . 

El salto puede ser una expresion-numerica . Si su valor es negativo, el parametro principio 
tiene que ser mayor que el parametro fin, pues de no ser asi la variable del contador no 
serd modificada. 

Los bucles FOR . . . NEXT pueden ser 'anidados', es decir, programados uno dentro de 
otro. 
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No es necesario especificar el nombre de la variable a continuacion de NEXT, ya que BA- 
SIC determina automaticamente a que FOR corresponde cada NEXT 'an6nimo'. 

Palabras clave asociadas: NEXT, STEP, TO. 



FRAME 

FRAME 

10 MODE 

20 PRINT "sin FRAME" 

30 TAG 

40 MOVE 0,200 

50 FOR x=0 TO 500 STEP 4 

60 IF f=1 THEN FRAME 

70 MOVE x,200 

80 PRINT" ";CHR$(143); 

90 NEXT 

100 IF f=1 THEN RUN 

110 CLS 

120 TAGOFF 

130 PRINT "con FRAME' 

140 f=1 

150 GOTO 30 

run 

Orden. Sincroniza la escritura de caracteres graficos en la pantalla con el retorno del haz 
en el monitor. El efpcto global es hacer que el movimiento de simbolos por la pantalla 
sea mas suave, sin parpadeo ni discontinuidad. 

Palabras clave asociadas: TAG, TAGOFF. 

FRE 

FRECexpresion-numerica ) 
FRE(expres;6n-/(tera/) 

PRINT FRE(O) 
PRINT FRE("") 
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Funcion. Da el espacio libre de memoria utilizable por BASIC. En la forma FRE ("") rea- 
liza una 'limpieza de memoria' antes de dar el niimero de bytes libres. 

Nota. BASIC solamente utiliza los primeros 64K de memoria. 

Palabras clave asociadas: HIMEM, MEMORY. 

GOSUB 

GOSUB numero-de-/('nea 
GOSUB 210 

Orden. Invoca una subrutina de BASIC; es decir, reconduce el programa hacia.el numero- 
de-linea-especificado. El final de la subrutina estara indicado por la orden RETURN; 
cuando se llega a ella, el programa retorna a la instruccion siguiente al GOSUB que invo- 
c6 la subrutina. 

Palabras clave asociadas: RETURN. 

GOTO 

GOTO numero-de-linea 
GOTO 90 

Orden. Hace que la ejecucion del programa salte a la linea especificada. 
Palabras clave asociadas: ninguna. 

GRAPHICS PAPER 

GRAPHICS PAPER tinta 

10 MODE 

20 MASK 15 

30 GRAPHICS PAPER 3 

40 DRAW 640,0 

run 

Orden. Especifica la tinta del papel de la pantalla de grdficos, es decir, el color de fondo 
sobre el que se dibujan los graficos. Cuando se dibujan lineas continuas, el papel grdfico 
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se hace invisible. En el programa ejemplo, la orden MASK hace que la recta que se dibuja 
sea discontinua y que, por lo tanto, el papel grdfico se pueda ver debajo de ella. 

La tinta del papel grdfico (margen de a 15) se utiliza tambien como fondo de los caracte- 
res que se escriben mediante TAG y para reteflir la pantalla grafica cuando no se especifica 
otra tinta tras la instruccion CLG. 

Palabras clave asociadas: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF. 

GRAPHICS PEN 

GRAPHICS PEN ftintaJf.moc(o-de-fondoJ 

10 MODE 

20 GRAPHICS PEN 15 

30 MOVE 200.0 

40 DRAW 200,400 

50 MOVE 639,0 

60 FILL 15 

run 

Orden. Especifica la tlnia con la que en lo sucesivo se van a dibujar rectas y puntos. El 
modo-de-fondo puede ser: 

Fondo opaco 

1 Fondo transparente 

(El fondo transparente afecta al papel grafico de los caracteres escritos con TAG y a los 
espacios que quedan entre los trazos de las lineas discontinuas.) 

Se puede omitir cualquiera de los dos parametros, pero no ambos. Si se omite un parame- 
tro, la caracteristica controlada por el permanece inalterada. 

Palabras clave asociadas: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF. 

HEX$ 

H EX$(expresidn-enteraf ,anchura-de/-campoJ ) 

PRINT HEX$(255,4) 
OOFF 
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Funcion. Produce una cadena literal que es la version hexadecimal de la expresidn-entera . 
La longitud de la cadena es la especificada por el pardmetro anchura-de-campo (margen 
de a 16). Si la longitud es demasiado pequeiia, la cadena resultante no se trunca, sino 
que consta de todos los caracteres necesarios. 

El valor de la expresidn-entera tiene que estar comprendido entre -32768 y +65535. 

Palabras clave asociadas: BIN$, DEC$, STR$, UNT. 

HIMEM 

HIMEM 

PRINT HIMEM 
42619 

Funcion. Da la direccion de la posici6n de memoria mds alta accesible a BASIC (la cual 
puede ser modificada con la orden MEMORY). 

Nota. BASIC solamente utiliza los primeros 64K de memoria. 

Palabras clave asociadas: FRE, MEMORY, SYMBOL, SYMBOL AFTER. 

IF 

IF expresion-logica THEN opcion [ELSE opcidn] 

10 MODE 1 

20 x=CINT(RND*100) 

30 PRINT "Adivine mi numero (de a 100)" 

40 INPUT n 

50 IF n<x THEN PRINT n;"es demasiado bajo ..." 

60 IF n>x THEN PRINT n;"es demasiado alto ..." 

70 IF n=x THEN 80 ELSE c=c+1:G0T0 40 

80 PRINT "Muy bien. Lo ha conseguido en"; 

90 PRINT c+1;"intentosl" 

run 

Orden. Determina si laexpres/dn-/ogica tiene el valor 'verdadero'. Si es asi, ejecuta la pri- 
mera opcidn. Si la expresion-logica tiene el valor 'falso', ejecuta la opcidn especificada 
despu6s de ELSE; si no se ha incluido ELSE, BASIC pasa a la siguiente linea del pro- 
grama. 
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Las ordenes IF THEN . . . se pueden anidar, sin mas limite que la longitud de la linea. 

La orden (o la serie de 6rdenes anidadas) termina en el final de la linea, de modo que no 
es posible poner en la misma linea instrucciones que scan independientes de la orden IF 
... THEN .... 

Si la opcion especificada consiste en un salto de linea, la orden puede tener cualquiera 
de las tres formas siguientes: 

IF a=1 THEN 100 
IF a=1 GOTO 100 
IF a=1 THEN GOTO 100 

Palabras clave asociadas: ELSE, GOTO, THEN. 

INK 

INK tinta,color[, color] 

10 MODE liPAPER 0:PEN 1 

20 FOR p=0 TO 1 

30 FOR I =0 TO 26 

40 INK p,i 

50 LOCATE 16,12:PRINT"ink";p;";';i 

60 FOR t=1 TO 400:NEXT t,l,p 

70 INK0,1:INK 1,24:CLS 

run 

Orden. Asigna uno o dos colores a la tinta dada. El parametro tinta es el niimero de refe- 
renda de la tinta (margen de a 15), por el que se la cita en las ordenes PEN y PAPER. 
El primer color debe ser una expresion entera cuyo valor este comprendido entre y 26. 
Si se incluye el segundo color, la tinta alterna entre los dos colores, a una velocidad que 
se controla con la orden SPEED INK. 

Palabras clave asociadas: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, 
SPEED INK. 
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IIVKEY 

I N KE Y(expres/dn-entera ) 

10 IF INKEY(55)<>32 THEN 10 

20 PRINT "Ha pulsado [MAYS] y V" 

30 CLEAR INPUT 

run 

Funcion. Examina el teclado para determinar si se ha pulsado una tecla determinada. La 
exploraci6n se realiza una vez cada 0.02 s. 

Este funcion es litil para averiguar si se ha pulsado cierta tecla, comprobando si el niimero 
generado por IN KEY es - 1 (el cual es independiente de la situaci6n de [MAYS] y 
[CONTROL]). 

El ejemplo anterior detecta cuando se pulsa V (tecla numero 55) con [MAYS] y sin [CON- 
TROL]. El esquema de la numeracion de las teclas esta grabado en la carcasa del ordena- 
dor, a la derecha del teclado, e impreso en el capitulo titulado 'Para su referenda . . . '. 

Los valores generados por INKEY en funcion de la situacion de las teclas [MAYS] y 
[CONTROL] son los siguientes: 



Valor generado [MAYS] [CONTROL] Tecla especificada 



-1 


Indiferente 


Indiferente 


No pulsada 





No pulsada 


No pulsada 


Pulsada 


32 


Pulsada 


No pulsada 


Pulsada 


128 


No pulsada 


Pulsada 


Pulsada 


160 


Pulsada 


Pulsada 


Pulsada 



Palabras clave asociadas: CLEAR INPUT, INKEY$, JOY. 
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INKEY$ 

iNKEY$ 

10CLS 

20 PRINT "Elija Si o No (S/N):" 

30 a$=INKEY$ 

40 IF a$="" THEN 30 

50 IF a$="s" OR a$="S'" THEN 80 

60 IF a$="n" OR a$="N" THEN 90 

70 GOTO 30 

80 PRINT "Ha respondido Sr':END 

90 PRINT "Ha respondido NO"' 

run 

Funcion. Examina el teclado para determinar si se ha pulsado alguna tecla; de ser asi, ge- 
nera una cadena literal consistente en el cardcter correspondiente a la tecla pulsada. Si no 
se ha pulsado ninguna tecla, genera la cadena vacia. En el programa ejemplo, las hneas 
30 y 40 forman un bucle que no deja de repetirse mientras no se pulse una tecla. 

Palabras clave asociadas: CLEAR INPUT, INKEY. 

INP 

I N P(numero-de-puerta ) 

PRINT INP(&FF77) 
255 

Funcion. Da el valor de entrada leido en la direcci6n de entrada/salida especificada por 
el pardmetro numero-de-puerta . 

Palabras clave asociadas: OUT, WAIT. 
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INPUT 

INPUT f#expres/dn-de-numero-de-cana/,J[;Jfcactena-/iteraf-entre-comi//as separadorj 

/ista-de:var/ab/e 

10 MODE 1 

20 INPUT "Escriba ios dos factores (separados 

por una coma): ",a,b 
30 PRINT a;"poi";b;"es";a*b 
40 GOTO 20 
run 

Orden. Capta una entrada de datos por el canal especificado (For el #0, si no se especifica 
ninguno). 

El primer signo de punto y coma [;] es opcional e inhibe la funcion de retorno del ca- 
rro/avance de linea que de otra forma se produciria al terminar de ejecutarse la instruc- 
ci6n. 

El separador tiene que ser una coma o un punto y coma. El punto y coma hace que se 
escriba el signo de interrogacidn; la coma lo impide. 

Si el dato introducido es de tipo incorrecto (por ejemplo, cuando se escribe la letra O en 
lugar del niimero en la captacidn de un dato nimi6rico), BASIC responde con el men- 
saje: 

?Redo from start 

y cualquier otro texto que se haya programado. 

Toda introducci6n de datos a trav& del teclado debe terminar con la pulsaci6n de la tecla 
[RETURN]. 

Palabras clave asociadas: LINE INPUT, OPENIN. 
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IIMSTR 

INSTR([pos(ci6n-de-part/daJcadena-en-/a-que-se-busca^adena-buscada) 

10 CLS 

20 alfabeto$=alfabeto$+CHR$(n+64) 

30 INPUT "Escriba una letra: ",a$ 

40 b$=UPPER$(a$) 

50 PRINT b$;" es la letra numero"; 

60 PRINT INSTR(alfabeto$,b$); 

70 PRINT "del alfabeto": PRINT 

80 GOTO 40 

run 

Funcion. Determina si la cadena-buscada esta contenida en la cadena-en-la-que-se- 
busca . Si lo esta, da la posicion del caracter de la cadena-en-la-que-se-busca en el que 
se ha producido la primera coincidencia. Si no lo esta, da el numero 0. 

El parametro opcional pos/c/dn-de-part/da indica en que lugar de la cadena-en-la-que-se- 
busca debe empezar la busqueda; debe ser una expresion entera que de un valor compren- 
dido entre 1 y 255. 

Palabras clave asociadas: ninguna. 

INT 

I NT(expres/6n-numerica ) 

PRINT INT(-1.995) 
-2 

Funcion. Redondea el valor de la expresion-numerica al numero entero inferior, despre- 
ciando la parte decimal. Da el mismo valor que FIX cuando el argumento es positivo, pero 
una unidad menos que FIX cuando el argumento es negativo y no entero. 

Palabras clave asociadas: CINT, FIX, ROUND. 
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JOY 

JOY(expresidn-entera ) 

10 PRINT "Para detener el programa "; 

20 PRINT "acclone el joystick" 

30 IF JOY(0)<>0 THEN END 

40 GOTO 10 

run 

Funcidn. Lee bit a bit la situaci6n del joystick especificado por la expresion-entera (que 
debe valer o 1). Genera un valor decimal segiin la siguiente tabla: 





Bit 


Decimal 





Arriba 


1 


1 


Abajo 


2 


2 


Izquierda 


4 


3 


Derecha 


8 


4 


Disparo 2 


16 


5 


Disparo 1 


32 



Asi, en el programa ejemplo, si el boton principal de disparo (Disparo 2) del primer joys- 
tick esta accionado mientras la empuiiadura esta inclinada hacia la izquierda, la furicion 
JOY(O) da el niimero decimal 20, que es la suma de 16 (Disparo 2) mas 4 (Izquierda). 

En el capitulo 'Para su referenda . . . ' daremos mas informacion acerca de los joysticks. 

Palabras clave asociadas: CLEAR INPUT, INKEY. 

KEY 

KEY codigo-expans/b/e ^xpresion-litera/ 

KEY 11,"border 13:paper 0:pen 1:lnk 0,13: 
ink 1.0:mode 2:list"+CHR$(13) 

y ahora pulse la tecla [INTRO]. 
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Orden. Asigna la expres/dn-l/tera/ al cdd'igo-expansMe especificado. El sistema maneja 
32 codigos expansibles, del al 31, identificados por los codigos de tecla 128 a 159. Los 
c6digos de tecla del 128 (generado por la tecla del teclado numerico) al 140 (generado 
por la tecla [INTRO] con [CONTROL]) tienen asignadas implicitamente las funciones de 
escribir los digitos del al 9, el punto, [RETURN] y RUN"[RETURN] (para operacion 
con cinta), respectivamente, pero se les pueden asignar otras expres/ones-//tera/es diferen- 
tes con KEY. Los codigos expansibles 13 a 31 (cbdigos de tecla 141 a 159) tienen asignada 
implicitamente la cadena vacia, pero se los puede expandir con KEY para luego asignarlos 
a teclas concretas con KEY DEF. 

El parametro codigo-expansMe incluido en la orden KEY puede estar en el margen de 
a 31, o bien en el margen 128 a 159 para reflejar directamente c6digos de tecla. (Vease 
la ilustraci6n del capitulo 'Para su referenda ...'.) 

Las expres/ones-//tera/es con las que se expandan los c6digos expansibles pueden ocupar 
como maximo un total de 120 caracteres. Si se intenta sobrepasar ese limite se produce 
el error 'improper argument' ('argumento inadecuado', error niimero 5). 

Palabras clave asociadas: KEY DEF. 

KEY DEF 

KEY DEF numero-de-tec/a^epet(r[.norma/[^hift[,controlJJJ 

KEY 159/'esta es la tecla TAB" 
KEY DEF 68,1,159 

Despues de escribir estas 6rdenes, pulse la tecla [TAB]. 

Orden. Define los c6digos de tecla que van a ser generados por la tecla de niimero especifi- 
cado. El numero-de-tecla tiene que estar en el margen de a 79 (veanse los numeros de 
tecla en el diagrama grabado a la derecha del teclado, o bien el esquema del capitulo 'Para 
su referencia ...'). En la definici6n se pueden incluir los codigos de tecla que deben ser 
generados por la tecla cuando se la pulsa sola y cuando se la pulsa en combinacion con 
[MAYS] y [CONTROL]. Todos estos pardmetros son opcionales. 

El pardmetro repetlr puede tener los valores 1 (para que la tecla sea de repetici6n) o (para 
que no lo sea). La velocidad de repeticion se puede definir con SPEED KEY. 

En el ejemplo anterior, primero se asigna una cadena literal al codigo 159 (equivalente 
al codigo expansible 31), y luego se especifica que la tecla niimero 68 (la tecla [TAB]) debe 
ser de repetici6n (1) y generar el c6digo 159 cuando se la pulse sola. 



3/44 Lista completa de las palabras clave del BASIC de AMSTRAD 



La situacidn normal se restaura, en el ejemplo anterior, mediante la orden: 
KEY DEF 68,0,9 

ya que el 9 es el codigo ASCII normalmente generado por [TAB]. 
Palabras clave asociadas: KEY, SPEED KEY. 

LEFT$ 

LEFT$(expres(6n-(itefal,Jongitud-deseada) 

10CLS 

20 a$="AMSTRAD" 

30 FOR n=1 TO 7 

40 PRINT LEFT${a$,n) 

50 NEXT 

run 

Funcion. Produce una cadena que consta del niimero de caracteres dado por longitud- 
deseada (margen de a 255) tornados de la izquierda de laexpresi6n-/iterai. Si la longitud 
de la expresi6n-l/tera/ es menor que la tongitud-deseada , la cadena producida es la 
expresidn-literal completa. 

Palabras clave asociadas: MID$, RIGHT$. 

LEIM 

LEN(expres)dn-/itera() 

10 LINE INPUT "Escrlba una frase: ",a$ 

20 PRINT "La frase tlene"; 

30 PRINT LEN(a$);" caracteres." 

run 

Funcion. Da la longitud de la expresidn-literal, es decir, el niimero de caracteres de que 
consta esta. 

Palabras clave asociadas: ninguna. 
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LET 

LET variable=expresi6n 

LET x=100 

Orden. Asigna un valor a una variable. Es una reliquia de las primeras versiones de BA- 
SIC, innecesaria en el BASIC de AMSTRAD. En el ejemplo anterior habria bastado con 
escribir: 

x=100 

Palabras clave asociadas: ninguna. 

LINE mPUT 

LINE INPUT [tfexpresi6n-de-numero-de-canal.][;][cadena-entre-comillas separador] 

variable-literal 

10 LINE INPUT "Escriba una lines de texto: ",a$ 

20CLS 

30 PRINT "La variable a$ es igual a: " 

40 PRINT a$ 

run 

Orden. Acepta la introduccion de una linea entera de texto por el canal especificado (o 
por el #0, si no se especifica ninguno). El primer signo de punto y coma [;] es opcional 
y, si se lo incluye, inhibe el retorno del carro/avance de linea que de otra forma se realiza- 
ria al terminar de ejecutarse la orden. 

El separador tiene que ser una coma o un punto y coma. El punto y coma hace que se 
escriba el signo de interrogacion; la coma lo impide. 

La captaci6n de datos a traves del teclado debe terminar con la pulsaci6n de la tecla 
[RETURN]. 

La captacion de datos por el canal #9 (disco o cinta) termina cuando se recibe un caracter 
de retorno del carro o cuando se ban recibido 255 caracteres (lo que antes ocurra). 

Palabras clave asociadas: INPUT, OPENIN. 
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LIST 

LIST[margen-de-numeros-de-lfneaJf.#expresi6n-de-numero-de-canalJ 

LIST 100-1000.#1 

Orden. Envia el listado de las lineas especificadas al canal especificado. El canal implicito 
es el #0. La impresora es el canal #8. La accion de listar se puede suspender momentanea- 
mente pulsando [ESC] una vez, tras lo cual se la puede reanudar pulsando la barra espa- 
ciadora o abandonar definitivamente pulsando [ESC] por segunda vez. 

Si se omite el primer niimero de margen-de-numeros-de-lfnea , se entiende 'desde el princi- 
pio del programa hasta . . . '; si se omite el segundo mimero, se entiende ' . . . hasta el final 
del programa'. Asi, 

LIST -200 

lista las primeras lineas del programa, hasta la 200 inclusive. En cambio, 

LIST 50- 

lista desde la linea 50 en adelante. Finalmente, 
LIST 

lista el programa completo. 
Palabras clave asociadas: OPENOUT. 

LOAD 

LOAD nombre-de-ficherof^xpresi6n-de-direcc/6n-de-memor/aJ 
LOAD "flchero.xyz".&2AF8 

Orden. Lee un programa de BASIC grabado en disco y lo carga en la memoria, reempla- 
zando al actual. Si se especifica la expresion-de-direcc/dn-de-memor/a opcional, LOAD 
carga un fichero binario en esa direccion, en lugar de hacerlo en la direccion a partir de 
la cual se lo grabo. 

Los programas de BASIC protegidos no se pueden cargar por este metodo, pues el orde- 
nador los borra inmediatamente de la memoria. Esos programas deben ser cargados con 
RUN o CHAIN. 
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464. No es necesario especificar el nombre del programa si se pretende leer el primero que 
el ordenador encuentre en la cinta. 

El ordenador le pedira que: 
Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY del magnetofo- 
no y despues una de las teclas del ordenador. El motor del magnetdfono empezara a mo- 
verse y el ordenador cargara el fichero. 

En la pantalla se mostraran los mensajes de carga: 
Loading NOMBREFI block 1 

y asi sucesivamente para los restantes bloques hasta que el fichero este cargado. 

Si el primer cardcter del nombre del fichero es ! se suprimen todos los mensajes citados, 
y usted debe asegurarse de que ha pulsado el boton PLAY. En el caso de los ficheros gra- 
bados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efec- 
tos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 
Broken in 

Palabras clave asociadas: CHAIIM, CHAIN MERGE, MERGE, RUN, SAVE. 

LOCATE 

LOCATE [#expres;dn-de-numero-de-cana/Jcoordenada-x.coordenada-y 

10 MODE 1 

20 FOR n=1 TO 20 

30 LOCATE n.n 

40 PRINT CHR${143);"posicion"; 

50 PRINT n;"/';n 

60 NEXT 

run 

Orden. Coloca el cursor de texto del canal indicado en la posici6n especificada por las 
coordenadas x,y. La posicidn 1,1 es el extremo superior izquierdo de la ventana. El canal 
#0 es el canal implicito. 
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Palabras clave asociadas: WINDOW. 

LOG 

LOG(expresion-numer/ca ) 

PRINT LOG(9999) 
9.21024037 

Funcion. Calcula el logaritmo natural o neperiano de la expresion-numerica , la cual debe 
ser mayor que cero. 

Palabras clave asociadas: EXP, LOG10. 

LOG10 

LOG10(expres/"on-numerica ) 

PRINT LOG10(9999) 
3.99995^7 

Funcion. Calcula el logaritmo decim2d de la expres/dn-numerica , la cujil debe ser mayor 
que cero. 

Palabras clave asociadas: EXP, LOG. 

LOWER$ 

LOWE R$(expresidn-(itera/ ) 

10 a$= "OBSERVE COMO SE CONVIERTEN LAS LETRAS A " 

20 PRINT LOWER$(a$+"MINUSCULAS") 

run 

Funcidn. Da una cadena literal que es copia de la expresmn-Wteral especificada, pero con- 
virtiendo las letras mayusculas en mimisculas y deJ£mdo inalterados los restantes caracte- 
res. Esta funcion es util en el proceso de datos que puedan contener mimisculas mezcladas 
con mayusculas. 

Palabras clave asociadas: UPPER$. 
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MASK 

MASK [expresion-enteraU^ituacion-del-primer-punto] 

10 MODE 0:INK 5,21:INK 8,16 

20 MOVE -100*RNO,400*RND 

30 WHILE XPOS<640 

40 FOR x=1 TO 8 

50 MASK 2(8-x) 

60 DRAWR 32,0,x,1:MOVER -32.0 

70 NEXT 

80 MOVER 34,0 

90 WEND:GOTO 20 

run 

Orden. Define una 'mascara' o plantilla que se puede utilizar en el dibujo de rectas. La 
expres/on-entera (margen de a 255) determina la situacion de los diversos bits de cada 
grupo de 8 pixels adyacentes: para pixel apagado, 1 para pixel iluminado. 

El parametro s/tuaci6n-de/-primer-punto determina si el primer punto de la recta debe ser 
iluminado (1) o no (0). 

Se puede omitir cualquiera de los dos parametros, pero no ambos. La situacion de la ca- 
racteristica correspondiente al parametro omitido permanece inalterada. 

Palabras clave asociadas: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN. 

MAX 

MAX|//sta-de:expres/6n-numerica) 

10 n=66 

20 PRINT MAX(1,n,3,6,4.3) 
run 
66 

Funcion. Da el valor maximo de los incluidos en la \'\sta-de:-expres\6n-niimer\ca . 
Palabras clave asociadas: MIN. 
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MEMORY 

M EMORY expres/6n-de-direcc/6n-de-memor/a 

MEMORY &20AA 

Orden. Determina el espacio de memoria utilizable por BASIC al fijar la direccion de su 
limite superior. 

Palabras clave asociadas: PRE, HIMEM, SYMBOL, SYMBOL AFTER. 

MERGE 

MERGE nombre-de-f/chero 

MERGE "nuevopro.bas" 

Orden. Lee un programa grabado en disco o en cinta y lo superpone al actualmente alma- 
cenado en la memoria. 

Las lineas del programa leido se superponen y sustituyen a las que hubiera en el antiguo 
con el mismo mimero. 

Los ficheros protegidos (grabados con ,p) no pueden ser mezclados por este procedimien- 
to con el programa actual. 

464. No es necesario especificar el nombre del programa si se pretende leer el primero que 
el ordenador encuentre en la cinta. 

El ordenador le pedira que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY del magnet6fo- 
no y despues una de las teclas del ordenador. El motor del magnetofono empezara a mo- 
verse y el ordenador cargara el fichero. 

En la pantalla se mostraran los mensajes de carga: 
Loading NOMBREFI block 1 

y asi sucesivamente para los restantes bloques hasta que el fichero este cargado. 
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Si el primer cardcter del nombre del fichero es ! se suprimen todos los mensajes citados, 
y usted debe asegurarse de que ha pulsado el boton PLAY. En el caso de los ficheros gra- 
bados en disco, el ordenador ignora el distintivo I. Observe que el signo I no cuenta a efec- 
tos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 
Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD. 

IVIID$ 

MID$(expres/dn-//tera/,posicidn-de-partidaf,Jongitud-de-/a-subcadenaJ) 

10 MODE 1:Z0NE 3 

20 a$=" MASSACHUSETTS" 

30 PRINT "Deietreame ";a$ 

40 PRINT "Vale ...":PRINT 

50 FOR n=1 TO LEN(a$) 

60 PRINT MID$(a$,n,1), 

70 FOR t=1 TO 700:NEXT t.n 

80 PRINT:PRINT 

90 INPUT "Ahora escriba usted otra palabra: ",a$ 

100 GOTO 50 

run 

Funcion. Genera una cadena literal copiada de la expresidn-literal. El numero de caracte- 
res copiados es el dado por /ong/tud-de-/a-subcadena; la copia empieza en el cardcter es- 
pecificado por pos/c/dn-de-part/da. Si no se especifica la tong/tud-de-Za-subcadena, se co- 
pian todos los caracteres restantes, desde pos/c/dn-de-part/da hacia la derecha. 

Si la pos/c/dn-de-part/da es mayor que la longitud de laexpres/dn-//tera/, se genera la cade- 
na vacia. El margen de pos/c/dn-de-part/da es de 1 a 255. El de /ong/tud-de-/a-subcadena 
es de a 255. 

Palabras clave asociadas: LEFT$, RIGHT$. 
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IVilD$ 

MID$(variab/e-//tera/,posic/6n-de-(nserckJn[^ong/tud-de-cadena-nuevaJ) 

=expresidn-de-cadena-nueva 

10 a$="Amstrad" 

20 MiD$(a$,3^)="XX" 

30 PRINT a$ 

run 

AmXXrad 

Orden. Reemplaza un numero de caractres de la vaTiabte-Wteral, dado por /ong/tud-de- 
cadena-nueva, con caracteres tornados de expres/6n-de-cadena-nueva. La sustitucibn 
empieza en pos/c/dn-de-/nsercidn . 

Obs6rvese que cuando se utiliza MID$ como orden, su argumento debe set una variab/e- 
\itera\; no vale, pues, una cadena literal constante tal como "hola". 

Palabras clave asociadas: LEFT$, RIGHT$. 

MIN 

M I N (/ista-de:expres/6n-num^rica ) 

PRINT MIN(3,6.2.999,8,9) 
2.999 

Funcion. Da el valor minimo de los incluidos en la i/sta-de;-expres/dn-num6rica . 
Palabras clave asociadas: MAX. 

MOD 

argumento MOD argumento 

PRINT 10 MOD 3 

1 
PRINT 10 MOD 5 



Operador. Da el resto de la divisibn entera del primer argumento por el segundo. 
Palabras clave asociadas: ninguna. 
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MODE 

MODE expresidn-entera 

10 m=m+1:IF m>2THEN m=0 

20 MODE m 

30 PRINT' Este es el modo";m 

40 PRINT' Pulse una tecla." 

50 IF INKEY$="" THEN 50 ELSE 10 

run 

Orden. Gambia el modo de pantalla (0, 1 o 2) y la borra tinendola con la tinta numero 
(que puede no ser la tinta actualmente asignada al papel). Todas las pantallas de texto 
y grdficas se restauran (coincidentes con la pantalla completa); los cursores de texto y gra- 
fico quedan en sus origenes respectivos. 

Palabras clave asociadas: ORIGIN, WINDOW. 

MOVE 

M O VE coordenada-x fioordenada-yi ,[t/ntaJ[,modo-de- tinta JJ 

10 MODE 1:TAG 

20 x=RND*800-100:y=RND*430 

30 MOVE x.y 

40 PRINT "Estoyaqur; 

50 GOTO 20 

run 

Orden. Lleva el cursor grdfico a la posici6n absoluta especificada por las coordenadas 
x,y. Se puede utilizar el parametro opcional tinta para cambiar la tinta de la pluma gr^fica 
(margen a 15). 

El parametro opcional modo-de-t/nta determina la futura forma de interacci6n entre la 
tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: MOVER, ORIGIN, XPOS, YPOS. 
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MOVER 

MOVER incremento-de-x,incremento-cle-y[.ltintaU,modo-de-tintaU 

10 MODE 1:TAG:M0VE 0,16 

20 PRINT "primero se sube"; 

30 FOR n=1 TO 8 

40 MOVER -56,16 

50 PRINT "sube";:NEXT:PRINT" y luego se baja"; 

60 FOR n=1 TO 8 

70 MOVER -56,-16 

80 PRINT "baja";:NEXT 

run 

Orden. Lleva el cursor grafico a un punto cuya posicion, referida a la actual, viene dada 
por '\ncremento-de-x e /ncremento-de-y . Se puede utilizar el parametro opcional t/nta para 
cambiar la tinta de la pluma grafica (margen de a 15). 

El parametro opcional modo-de-t/nta determina la futura forma de interacci6n entre la 
tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: MOVE, ORIGIN, XPOS, YPOS. 

NEW 

NEW 

NEW 

Orden. Borra el programa de BASIC actualmente residente en la memoria. No se pierden 
las definiciones de teclas ni se modifican las caracten'sticas de la pantalla (MODE, PEN, 
PAPER, INK, etc.) ni se borra la pantalla. 

Palabras clave asociadas: ninguna. 



Lista completa de las palabras clave del BASIC de AMSTRAD 3/55 



NEXT 

NEXT [lista-deivariablel 

10 FOR a=1 TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a:BORDER b 

50 PRINT" pen" ;a;" bordei":b 

60 FOR c=1 TO 500 

70 NEXT c.b.a 

run 

Orden. Seflala el final del bucle FOR . . . NEXT. La orden NEXT puede ser an6nima o 
mencionar el nombre de la variable del FOR correspondiente. Obsdrvese en el ejemplo an- 
terior que las variables de la lista deben estar en orden inverso al de sus correspondientes 
ordenes FOR, de modo que los bucles no queden solapados, sino anidados. 

Palabras clave asociadas: FOR, STEP, TO. 

NOT 

NOT argumento 

IF NOT"juan"<"pepe" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF NOT"gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

PRINT NOT -1 


PRINT NOT 
-1 

Operador. Realiza la negacion 16gica sobre enteros inviertiendo todos los bits del 
argumento. 

En la parte 2 el capitulo 'Cuando usted guste . . . ' daremos mis amplia informaci6n sobre 
las operaciones 16gicas. 

Palabras clave asociadas: AND, OR, XOR. 
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ON BREAK COIMT 

ON BREAK CONT 

10 ON BREAK CONT 

20 PRINT "El programa CONTinua aunque usted 

intente interrumpirlo con [ESCT'iPRINT 
30 FOR t=1 TO 1000:NEXT:GOTO 20 
run 

Orden. Inhibe la posibilidad de interrumpir el programa pulsando la tecla [ESC], pues 
intercepta la internipcion y continiia la ejecuci6n. Esta orden se debe utilizar con precau- 
ci6n, ya que el programa no podra ser detenido m^ que reinicializando la mdquina; grabe 
el programa antes de ejecutarlo. 

Dentro de un programa, esta orden se anxila con ON BREAK STOP. 

Palabras clave asociadas: ON BREAK GOSUB, ON BREAK STOP. 

ON BREAK GOSUB 

ON BREAK GOSUB numero-de-/fnea 

10 ON BREAK GOSUB 40 

20 PRINT "Programa funcionando" 

30 GOTO 20 

40 CLS:PRINT "Pulsando dos veces [ESC] "; 

50 PRINT' se invoca la subrutina" 

60 FOR t=1 TO 2000: NEXT 

70 RETURN 

run 

Orden. Provoca el salto a la subrutina especificada por numero-de-li'nea cuando se pulsa 
dos veces la tecla [ESC]. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK STOP, RETURN. 
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OIM BREAK STOP 

ON BREAK STOP numero-de-linea 

10 ON BREAK GOSUB 40 

20 PRINT "Programa funcionando" 

30 GOTO 20 

40 CLS:PRINT "Pulsando dos veces [ESC] "; 

50 PRINT' se invoca la subrutina" 

60 FOR t=1 TO 2000:NEXT 

65 ON BREAK STOP 

70 RETURN 

run 

Orden. Anula las ordenes ON BREAK CONT y ON BREAK GOSUB, permitiendo asi 
que el programa pueda ser interrumpido normalmente con la tecla [ESC]. En el programa 
ejemplo, la orden ON BREAK GOSUB solo actiia una vez, pues la li'nea 65 de la rutina 
de interrupci6n la anula. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK GOSUB. 

OIM ERROR GOTO 

ON ERROR GOTO numero-de-linea 

10 ON ERROR GOTO 60 

20 CLS:PRINT"Si detecto un error, "; 

30 PRINT "llstare el programa" 

40 FOR t=1 TO 4000:NEXT 

50 GOTO 100 

60 PRINT "Hay un error en la linea"; 

70 PRINT ERL:PRINT:LIST 

run 

Orden. Provoca el salto a la li'nea especificada cuando se detecta un error en el programa. 

La forma ON ERROR GOTO desactiva la gestion de errores programada por el usuario 
y activa la normal de BASIC. 

Vease tambien la orden RESUME. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, RESUME. 
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ON expres/dn GOSUB 

ON selector GOSUB //sta-de:numero-de-/r'nea 

10 PAPER 0:PEN 1:INK 0.1 

20 CLS:PRINT"MENU DE OPCIONES":PRINT 

30 PRINT "1. Cambiar borde":PRINT 

40 PRINT "2. Cambiar pluma":PRINT 

50 PRINT "3. Cambiar modo":PRINT 

60 INPUT "Elija del 1 al 3: ",x 

70 ON X GOSUB 90,110,130 

80 GOTO 20 

90 b=b-1:IF b<0 THEN b=26 

100 BORDER b:RETURN 

110 p=p-1:IF p<2 THEN p=26 

120 INK 1.p:RETURN 

130 m=m-1:IF m<0 THEN m=2 

140 MODE m:RETURN 

run 

Orden. Determina, en funcion del valor dese/ector, que subrutina de BASIC debe ser in- 
vocada. El margen de valores de setector es de a 255. La rutina elegida es la que se en- 
cuentra en la lista en el lugar indicado por selector. Asi, en el ejemplo anterior, si x= 1, 
se invoca la rutina de la linea 90; si x=2, la Ifnea 110; y si x=3, la de la Ifnea 130. 

Si el valor de selector es cero o mayor que el niimero de lineas citadas en la (ista-de- 
numeros-de-/inea, no se invoca ninguna subrutina. 

Palabras clave asociadas: RETURN. 

ON exjpreslon GOTO 

ON selector GOTO ;/sta-de:niimero-de-//nea 

10 CLS:PRINT"[VIENU DE OPCIONES":PRINT 

20 PRINT "1. Listar programa":PRINT 

30 PRINT "2. Editar y ampliar":PRINT 

40 PRINT "3. Catalogo del disco":PRINT 

50 INPUT "Elija del 1 al 3: ",x 

60 ON X GOTO 80,90,100 

70 GOTO 10 
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80 LIST 
90 AUTO 
100 CAT 
run 

Orden. Determina, en funci6n del valor de setector, a que h'nea del programa debe saltar 
la ejecuci6n. El margen de valores de selector es de a 255. La linea elegida es la que 
se encuentra en la lista en el lugar indicado por setector. Asi, en el ejemplo anterior, si 
x= 1 se salta a la h'nea 80; si x=2, a la linea 90; y si x=3, a la linea 100. 

Si el valor de selector es cero o mayor que el numero de lineas citadas en la /ista-de- 
numeros-de-lmea , no se produce el salto. 

Palabras clave asociadas: RETURN. 

ON SQ GOSUB 

ON Sa(cana/) GOSUB rxumero-de-linea 

10 ENV 1.15,-1,1 

20 ON SQ(1) GOSUB 60 

30 MODE 0:ORIGIN 0,0,200,440,100,300 

40 FOR x=1 TO 13:FRAME:M0VE 330,200,x 

50 FILL x:NEXT:GOTO 40 

60 READ s:IF s=0 THEN RESTORE:GOTO 60 

70 SOUND 1,8,25,15,1 

80 ON SQ81) GOSUB 60:RETURN 

90 DATA 50,60,90,100,35.200,24,500,0 

run 

Orden. Invoca la subrutina especificada cuando hay espacio Ubre en la cola de sonidos. 
El pardmetro canal deber ser una expresidn entera que de uno de los siguientes valores: 

1 para el canal A 

2 para el canal B 
4 para el canal C 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mds informaci6n sobre los 
sonidos. 

Palabras clave asociadas: RETURN, SOUND, SQ. 
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OPENIN 

OPENIN nombre-de-fichero 

10 REM abrir un fichero del disco para entrada 

20 OPENIN "datos":INPUT #9,a,a$ 

30 CLOSEIN:PRINT "Los dos valores son:" 

40 PRINTiPRINT a,a$ 

run 

Orden. Abre, en direcci6n de entrada, un fichero grabado en disco o en cinta para hacerlo 
accesible al programa. El fichero tiene que ser de tipo ASCII. 

El programa anterior s61o funciona si se ha creado previamente el fichero (por ejemplo, 
con el programa siguiente). 

464. No es necesario especificar el nombre del fichero si se desea leer el primer fichero 
que el ordenador encuentre en la cinta. 

El ordenador le pide que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el bot6n PLAY del magnet6fo- 
no y despu6s una de las teclas del ordenador. La cinta empezard a moverse y el ordenador 
cargara los primeros 2K del fichero en una zona de memoria denominada 'tamp6n'. El 
programa toma los datos del tamp6n. Cuando se vacia, el ordenador vuelve a emitir el 
mensaje: 

Press PLAY then any key: 

y carga los 2K siguientes. 

En la pantalla van apareciendo los mensajes de carga: 

Loading NOMBREFI block 1 

para los sucesivos bloques. 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado el bot6n PLAY. En el caso de los ficheros graba- 
dos en disco, el ordenador ignora el distintivo 1. Observe que el signo I no cuenta a efectos 
de la longitud del nombre del fichero. 
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Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 
Palabras clave asociadas: CLOSEiN, EOF. 

OPENOUT 

OPENOUT nombre-de-fichero 

10 REM abrir un fichero en el disco para salida 

20 INPUT "Escriba un nunnero: ",a 

30 INPUT "Escriba una palabra: ",a$ 

40 OPENOUT "dates" 

50 WRITE #9,a,a$ 

60 CLOSEOUT:PRINT "Dates grabados en disco" 

run 

Orden. Abre, en direccion de salida, un fichero para su grabacion en disco. 

464. No es necesario especificar el nombre del fichero si se desea grabarlo como Unna- 
med file (ficheros sin nombre). 

El ordenador va enviando datos a una porci6n de la memoria denominada 'tampon', cuya 
capacidad es de 2 K. Cuando se llena el tampon, el ordenador pide que 

Press REC and PLAY then any key: 

('Pulse REC y PLAY y luego cualquier tecla.') Usted debe pulsar los botones REC y 
PLAY del magnet6fono y despues una de las teclas del ordenador. La cinta empezard a 
moverse y el ordenador grabara en ella el contenido del tampon. El ordenador sigue en- 
viando datos al tampon; cada vez que se llena vuelve a emitir el mensaje 

Press REC and PLAY then any key: 

y a grabar los 2 K en la cinta. 

Si el tampon esta parcialmente ocupado cuando se ejecuta la orden CLOSEOUT, el orde- 
nador emite el mensaje 

Press REC and PLAY then any key: 

tras lo cual vacia el tamp6n hacia la cinta. 
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Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo 

Saving NOMBREFI block x 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnetdfono. En 
el caso de los ficheros grabados en disco, el ordenador ignora el distintivo !. Observe que 
el signo ! no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje: 

Broken in 
Palabras clave asociadas: CLOSEOUT. 

OR 

argumento OR argumento 

IF"juan"<"pepe" OR "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

IF"peprf'<"juan" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF"juan"<"pepe" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

PRINT 1 OR 1 

1 
PRINT OR 


PRINT 1 OR 

1 

Operador. Realiza la operacion 16gica 'o' bit a bit entre enteros. El resultado es 1 a menos 
que ambos bits scan 0. 

Para mas amplia informacion sobre operaciones 16gicas, consulte la parte 2 del capitulo 
titulado 'Cuando usted guste . . . '. 

Palabras clave asociadas: AND, NOT, XOR. 
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ORIGIN 

ORIGIN x,y[,izquierda,derecha^rriba^bajoJ 

10 MODE 1: BORDER 13:TAG 

20 ORIGIN 0.0,100,540,300,100 

30 GRAPHICS PAPER 3:CLG 

40 FOR x=550 TO -340 STEP -10 

50 MOVE x,206 

60 PRINT "Esta es una ventana grafica "; 

70 FRAME:NEXT:GOTO 40 

run 

Orden. Traslada el origen de grdficos (nuevo punto 0,0) a la posici6n especificada por x 
ey. 

Al mismo tiempo se pueden especificar las dimensiones de una ventana grdfica dando los 
cuatro ultimos pardmetros (opcionales). Si estos pardmetros definen posiciones externas 
a la pantalla, el borde de la ventana serd el borde de la pantalla. 

Palabras clave asociadas: CLG. 

OUT 

OUT numero-de-puerta,expres/6n-entera 

OUT &F8F4,&FF 

Orden. Envia el valor de expres\6n-enteTa (margen de a 255) a la direccion especilcada 
por niimero-de-puerta . 

Esta orden no debe ser utilizada si no se sabe cudles son sus efectos. 

Palabras clave asociadas: INP, WAIT. 
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PAPER 

PAPER [#expresi6n-de-numero-de-cana/,Jt/nta 

10 MODE 0:PEN 0:INK 0,13 

20 FOR p=1 TO 15 

30 PAPER p:CLS 

40 LOCATE 7,12:PRINT "papei";p 

50 FOR t=1 TO 500:NEXT t.p 

run 

Orden. Establece que tinta se va a utilizar para escribir el fondo (papel) de los caracteres. 
Si los caracteres se envian a la pantalla de texto, la celda se reUena con e\ color actual 
del papel antes de escribir el caracter (a menos que se haya elegido el modo transparente). 

Si se omite la expresidn-de-numero-de-cana/ se supone el #0. 

El numero de tintas utilizables simultdneamente depende del modo de pantalla. 

Palabras clave asociadas: GRAPHICS PAPER, INK, PEN. 

PEEK 

PEEKfexpresidn-de-direcc/dn-de-memorJa) 

10 MODE 1:Z0NE 7 

20 WINDOW 1,40,1,3:WINDOW #1,1,40,4,25 

30 LOCATE 13,1:PRINT'MEM0RIA" 

40 PRINT:PRINT'Dlreccion" 

50 LOCATE 20,3:PRINT'Contenido" 

60 FOR n=0 TO 65535 

70 p=PEEK(n) 

80 PRINT #1,n,"(&";HEX$(n);"r'; 

90 PRINT #1,TAB(20);p."l&";HEX$(p);"r' 

100 NEXT 

run 

Funcion. Da el contenido de la posicidn de memoria especificada por el argumento, el 
lual debe estar en el margen de &0000 a «&FFFF (0 a 65535). En todos los casos, el valor 
producido serd el contenido de la posicidn de memoria de la RAM (no de la ROM) y esta- 
rd entre &00 y &FF (entre y 255). 

FalabrEis clave asociadas: POKE. 
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PEN 

PEN [itexpresi6n-de-numero-de-canal.Ktinta][jr)odo-de-fondo] 

10 MODE OiPAPER 0:INK 0,13 

20 FOR p=1 TO 15 

30 PEN piPRiNT SPACE$(47);"pen";p 

40 FOR t=1 TO 500:NEXT t.p:GOTO 20 

run 

Orden. Establece la t/nta (margen de a 15) con la que se escribiran los caracteres en lo 
sucesivo en el canal especificado (en el #0 si no se especifica ninguno). El parametro 
modo-de-fondo puede ser 1 (transparente) o (opaco). 

Se puede omitir cualquiera de los ultimos pardmetros, pero no ambos. La caracteristica 
correspondiente al pardmetro omitido permanece inalterada. 

Palabras clave asociadas: PAPER. 

PI 

PI 

PRINT PI 
3.14159265 

Funcion. Da el valor del niimero ir, relacion de la longitud al diametro de la circun- 
ferencia. 

Palabras clave asociadas: DEG, RAD. 

PLOT 

PLOT coordenada-xfioordenada-Y[,[tmta]ljpnodo-de-tmta]] 

10 MODE 1:B0RDER 0:PAPER 0:PEN 1 

20 INK 0,0:INK 1,26:INK 2,13,26:DEG 

30 FOR x=1 TO 360:ORIGiN 320,200 

40 DRAW 50*COS(x),50*SIN(x),1 

50 PLOT 100*COS(x),2S*SIN(x):NEXT 

60 ORIGIN 0,0:t=TIME+700:WHILE TIME<t 
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70 PLOT RND*640,RND*400:WEND 
80 PLOT RND*640,RND*400,2 
90 GOTO 90 
run 

Orden. Dibuja un punto en la pantalla grafica, en la posicion absoluta especificada por 
los parametros coordenada-x y coordenada-y . Tambien se puede especificar la t/nta con 
la que se debe dibujar (margen de a 15). 

El parametro opcional modo-de-t/nta determina la forma de interaccion entre la tinta con 
la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOTR. 

PLOTR 

PLOTR /ncremento-de-x,;ncremento-de-yf, [tinta ^odo-de-t/ntaJJ 

10 REM dibujo de rectas con las teclas del cursor 

20 BORDER 0:GRAPHICS PEN 1 

30 MODE 1:PL0T 320,200 

40 IF INKEY(0)=0 THEN PLOTR 0,1 

50 IF INKEY(1)=0 THEN PLOTR 1,0 

60 IF INKEY(2)=0 THEN PLOTR 0,-1 

70 IF INKEY(8)=0 THEN PLOTR -1,0 

80 IF INKEY(9)=0 THEN 30:REM copy = borrar 

90 GOTO 40 

run 

Orden. Dibuja un punto en la pantalla grafica en una posicion que, referida a la actual, 
viene dada por los parametros incremento-de-x e incremento-de-y . Se puede utilizeir el pa- 
rametro opcional tmta para C2unbiar la tinta de la pluma grdfica (margen de a 15). 
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El pardmetro opcional modo-de-tinta determina la futura forma de interacci6n entre la 
tinta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOT. 

POKE 

POKE expresidn-de-direcci6n-de-memoria jexpresidn-entera 

10 FOR m =48152 TO 65635 
20 POKE m,100 
30 NEXT 
run 

Orden. Escribe el valor de la expres/dn-entera (margen de a 255) en la memoria de la 
m^quina (RAM), en la posici6n especificada por el parametro expresidn-de-d/recc/dn- 
de-memona. 

Esta orden no se debe utilizar si no se sabe cuales son sus efectos. 

Palabras clave asociadas: PEEK. 

POS 

POS(#expres/dn-de-numero-de-canal) 

10 MODE 1:BORDER OiLOCATE 8,2 

20 PRINT "Utilice las teclas de cursor a la 

izquierda y cursor a la derecha" 
30 WINDOW 1,40,12,12:CURSOR 1,1 
40 FOR n=1 TO 18:PRINT CHR$(8);:NEXT 
50 IF INKEY(1)<>-1 THEN PRINT CHR$(8); 
60 IF INKEY(8)<>-1 THEN PRINT CHR$(8); 
70 LOCATE #1,1,24 

80 PRINT #1,"Posicion horizontal del "; 
80 PRINT #1," cursor de texto ="; 
100 PRINT #1,POS(#0):GOTO 50 
run 
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Funcidn. Da la posici6n horizontal del cursor de texto referida al horde izquierdo de la 
ventana. El parametro expresidn-de-numero-de-cana/ tiene que ser especificado, aunque 
sea el #0. 

P0S(#8) da la posicidn horizontal de la cabeza impresora, siendo 1 la posici6n del extre- 
mo izquierdo. 

POS(#9) da la posicion 16gica en el canal del disco, esto es, el niimero de caracteres tipo- 
grdficos enviados al disco despues del ultimo retomo del carro. 

Palabras clave asociadas: VPOS, WINDOW. 



PRINT 

PRINT f#expresi6n-de-numero-de-cana/,Jf//sta-de:etemento-que-se-escribeJ 

10 a$="corta" 

20 b$="esta cadena es mas larga" 

30 PRINT a$;a$ 

40 PRINT a$,a$ 

50 PRINT 

60 PRINT b$;b$ 

70 PRINT b$,b$ 

run 

Orden. Envia los efementos-que-se-escriben al canal especificado (o al #0, si no se especi- 
fica ninguno). 

Cuando se utiliza un signo de punto y coma (;) para separar los elementos de la lista, el 
ordenador escribe cada elemento inmediatamente despu& del anterior; no obstante, BA- 
SIC comprueba si el elemento siguiente cabe en la misma llnea y, si no cabe, salta a la 
h'nea siguiente a pesar del signo de punto y coma. 

Analogamente, la coma (,) especifica que el siguiente elemento se debe escribir en la si- 
guiente zona de escritura; no obstante, BASIC comprueba si con el elemento actual se ha 
rebasado la anchura de la zona de escritura y, si es asi, escribe el siguiente elemento en 
una zona mds a la derecha. 
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PRINT SPC 
PRINT TAB 

PRINT f#expres/6n-de-numero-de-cana/J [lista-de:elemento-que-se-escribell;] 
[SPC{expresi6n-entera)]Uista-de:elemento-que-se-escribe] 

PRINT Hfexpresi6n-de-numero-de-canal,]Uista-de:elemento-que-se-escribe][;] 
nAB(expresi6n-entera)]Uista-de:elemento-que-se-escribe] 

10 PRINT "Esta es la funcion SPC" 

20 FOR x=6 TO 15 

30 PRINT SPC(5)"a";SPC(xr'b" 

40 NEXT 

50 PRINT "Esta es ia funcion TAB" 

60 FOR x=6 TO 15 

70 PRINT TAB(5)"a";TAB(x)"b" 

80 NEXT 

run 

SPC escribe el numero de espacios especificado por la expres/dn-entera y luego, inmedia- 
tamente a su derecha, el siguiente elemento (en el supuesto de que quepa en la misma li- 
nea). Por consiguiente, no es necesario poner el signo de punto y coma despues de SPC. 

TAB avanza (escribiendo espacios) hasta la posici6n especificada por la expres/dn-entera , 
referida al borde izquierdo de la ventana, y luego, inmediatamente a la derecha de esa 
posicion, escribe el siguiente elemento (en el supuesto de que quepa en la misma linea). 
Por consiguiente, no es necesario poner el signo de punto y coma despues de TAB. Si la 
posicidn actual es mayor que la especificada, primero se realiza un retorno de carro y 
avance de h'nea y despues el avance de los espacios necesarios. 

PRINT USING 

PRINT [Mexpresi6n-de-numero-de-canal] [lista-de:elemento-que-se-escribe]l;] 

[USING pfantfVla-de-formato] fseparador expres/dnj 

10 FOR x=1 TO 10 

20 n=100000*(RND5) 

30 PRINT "Precio";USING " »#####»*. J W:n 

40 NEXT 

run 
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PRINT USING permite especificar el formato de la expresion escrita con PRINT. Esto 
se consigue especiiicando una plantUla-de-formato a la que la escritura ha de amoldarse. 
El separador es una coma o un punto y coma. Laplantilla-de-formato es una cadena literal 
construida con los siguientes 'especificadores de formato': 

Formatos numericos 

Para el niimero en si: 

* Cada # especifica una posicion (para un digito). 
Ejemplo: ###### 

Especifica la posici6n del punto decimal. 
Ejemplo: ######.## 

, (Especifica una posicion.) Solo puede aparecer antes del punto decimal. Especifi- 

ca que los digitos que queden a la izquierda del punto decimal deben separarse 
mediante comas en grupos de tres. 
Ejemplo: #####,.## 

Para antes y despues del niimero: 

RPt (Especifica dos posiciones.) Especifica que se debe escribir un signo Pt inmediata- 
mente antes del primer digito o del pimto decimal, despues del signo + o - (si 
lo hay). Observese que el signo Pt ocupara una de las posiciones para digitos. 
Ejemplo: RR######,.## 

* * (Especifica dos posiciones.) Especifica que los espacios libres a la izquierda deben 

ser rellenados con asteriscos. 
Ejemplo: **######,.## 

**Pt (Especifica tres posiciones.) Actiia como las opciones ** y RPt combinadas, es 
decir, con asteriscos por la izquierda y el signo R. 
Ejemplo: **R######,.## 

$$ (Especifica dos posiciones.) Especifica que se debe escribir un signo $ inmediata- 
mente antes del primer digito o del punto decimal, despues del signo + o - (si 
lo hay). Observese que el signo $ ocupara una de las posiciones para digitos. Ejem- 
plo: $$######,.## 

* *$ (Especifica tres posiciones.) Actiia como las opciones * * y $$ combinadas, es de- 

cir, con asteriscos por la izquierda y el signo $. 
Ejemplo: **$######,.## 
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+ Especifica que se debe escribir el signo + o el - (segun corresponda). Si se incluye 
el signo + al principio de la plantilla, el signo se escribird inmediatamente antes 
del numero (y del signo R o $, si se lo ha especificado). Si se incluye el signo + 
al final de la plantilla, el signo se escribe a la derecha del numero (y del exponente, 
si lo hay). 
Ejemplo: +####.#### 

- Este signo s61o se puede poner al final de la plantiUa. Especifica que, si el numero 
es negativo, se debe escribir el signo - a su derecha (y a la derecha del exponente, 
si lo hay). Si el numero es positivo, a su derecha se escribe un espacio. Si no se 
especifica esto, se escribe automdticamente un signo — a la izquierda de todos los 
mimeros negativos. 
Ejemplo: ####.####- 

TTTt Especifica que el numero se debe escribir en forma exponencial. Los signos Tttt 
se deben poner a la derecha de las posiciones para digitos, pero a la izquierda de 
los signos + y - (si los hay). 
■ Ejemplo: ##.#### Tttt + 

Lap/ant//fa-de-formato para mimeros no puede contener mds de 20 caracteres. Los mime- 
ros son redondeados antes de escribirlos con los digitos especificados. 

Si el formato es demasiado pequeiio para el numero que se ha de escribir, por ejemplo 

PRINT USING "###r;12345678 

el numero no se trunca, sino que se lo escribe entero, precedido de un signo % para indi- 
car el 'fallo de formato'. 

Formates literates 

10 CLS:a$="abcdefghijklmnopq" 

20 PRINT "expresion de entrada = ";a$ 

30 PRINT:PRINT"con especificador I = "; 

40 PRINT USING "r;a$ 

50 PRINT:PRINT "con especificador \espaclos\ = "; 

60 PRINT USING "\ \";a$ 

70 PRINT:PRINT "con especificador $ = "; 

80 PRINT USING "&";a$ 

90 GOTO 90 

run 
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! Especifica que solamente se debe escribir el primer cardcter de la cadena. 

Ejemplo: ! 

\espacios\ 

Especifica que solamente se deben escribir los x primeros caracteres de la cadena, 
siendo x la longitud de la plantilla (incluidas las barras inclinadas hacia la 
izquierda). 
Ejemplo: \ \ 

& Especifica que se debe escribir la cadena completa sin modiHcarla. 

Ejemplo: & 

La plantUa-de-formato para cadenas literales no puede contener mds de 255 caracteres. 

Las plantillas de formato, tanto si son numericas como si son literales, pueden ser repre- 
sentadas por variables literales; por ejemplo: 

10 a$="ftR######..##" 

20 b$="!" 

30 PRINT USING a$;12345.6789 

«) PRINT USING b$;"centimos" 

run 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mds informaci6n acerca de 
los formatos de impresi6n. 

Palabras clave relacionadas: SPC, TAB, USING, ZONE, OPENOUT. 



RAD 

RAD 

RAD 

Orden. Hace que BASIC entienda los argumentos de las funciones trigonometricas er ra- 
dianes. £sta es la situacidn implicita que se establece en el momento de encender la mdqui- 
na, cuando se la reinicializa y cuando se ejecutan las 6rdenes NEW, CLEAR, LOAD, 
RUN, etc. 

Palabras clave asociadas: ATN, COS, DEG, SIN, TAN. 
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RANDOMIZE 

RANDOMIZE [expresion-num^rlca] 

RANDOMIZE 123.466 
PRINT RND 
0.258852139 

Orden. El generador de niimeros aleatorios de BASIC produce una sucesion pseudo- 
aleatoria en la que cada numero depende del anterior. La sucesion es siempre la misma. 
RANDOMIZE hace que los niimeros aleatorios se tomen de esa sucesion a partir de la 
posici6n dada por la expresion-mjmenca o, si se omite 6sta, por un valor que el usuario 
debe teclear. 

RANDOMIZE TIME produce una sucesion que es muy dificil de repetir. 
Palabras clave asociadas: RND. 

READ 

READ //sta-de:var/ab/e 

10 FOR n=1 TO 8 

20 READ a$,c 

30 PRINT a$;" ";:SOUND 1.c:NEXT 

40 DATA en,478,toclas,426,las,379,escalas,358 

50 DATA musicales,319,hay,284,8,253,notas,239 

run 

Orden. Lee datos de las listas precedidas de DATA y los asigna a variables, actualizando 
automaticamente el 'puntero' de forma que este senale el siguiente dato. Se puede utilizar 
la orden RESTORE para hacer que el puntero senale el primer dato de una determinada 
lista DATA. 

En la parte 2 del capitulo titulado 'Cuando usted guste ..." daremos mds amplia informa- 
cion a este respecto. 

Palabras clave asociadas: DATA, RESTORE. 
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RELEASE 

RELEASE cana/es-de-sonido 

10 SOUND 66,1000,100 

20 PRINT "Puise R para liberar el sonido" 

30 IF INKEY(50)=-1 THEN 30 

40 RELEASE 1 

RUN 

Orden. Libera los canales de sonido que ban sido retenidos en una orden SOUND. 

El parametro cana/es-de-sonido tiene que dar un valor entero comprendido entre 1 y 7. 
Su significado es el siguiente: 

1 libera el canal A 

2 libera el canal B 

3 libera los canales A y B 

4 libera el canal C 

5 libera los canales A y C 

6 libera los canales B y C 

7 libera los canales A, B y C 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mas amplia informacion 
acerca de los sonidos. 

Palabras clave asociadas: SOUND. 

REM 

REM resto-de-(a-(;nea 

10 REM Caza a muerte de los invasores del 
hlperespaclo intergalactico, per AMSOFT 
20 REM Copyright AMSOFT ^9B5 

Orden. Precede a las observaciones o anotaciones al programa. Hace que BASIC ignore 
el resto de la linea, en el cual pueden figurar caracteres cualesquiera, incluso el signo de 
dos puntos (:), que normalmente se utiliza para separar instrucciones. 

En lugar de :REM se puede poner una comilla sencilla O en todos los casos salvo en las 
lineas de DATA, en las que el signo ' se interpreta como integrante de una cadena literal. 

Palabras clave asociadas: ninguna. 
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REMAIN 

REMAIN ^umero-de-temporizador) 

10 AFTER 500,1 GOSUB 40 

20 AFTER 100,2 GOSUB 50 

30 PRINT "Programa funcionando":GOTO 30 

40 REM esta subrutina no sera invocada porque 

lo impide la linea 80 
50 PRINT:PRINT "El temporizador 1 va a ser "; 
60 PRINT "inhlbido por REMAIN." 
70 PRINT "Unldades de tiempo que quedaban:"; 
80 PRINT REMAIN(I) 
run 

Funcion. Da la cuenta restante en el temporizador especificado (margen de a 3) y lo 
desactiva. 

En la parte 2 del capitulo 'Cuando usted guste ..." daremos mis informacion acerca de 
las interrupciones. 

Palabras clave asociadas: AFTER, Dl, El, EVERY. 

RENUM 

RENUM fnuevo-numero-de-/;neaJf,[ant(guo-numero-de-//neaJf,/ncrementoJ 

10CLS 

20 REM esta linea sera la 123 

30 REM esta linea sera la 124 

40 REM esta linea sera la 125 

RENUM 123,20,1 

LIST 

Orden. Renumera las lineas del programa. 

El parimetro ant/guo-numero-de-/inea especifica el niimero de linea actual en el cual debe 
comenzar la renumeracion. Si se omite ese pardmetro, la renumeracidn se realiza desde 
el principio del programa. 
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El parametro nuevo-numero-de-linea especifica que niimero se va a dar a la primera linea 
renumerada. Si se omite este parametro, el programa renumerado empieza en la Unea 10. 

El pardmetro incremento especifica el salto que habra entre cada dos niimeros de linea 
sucesivos. Si se lo omite, el incremento es 10. 

RENUM modifica correctamente los numeros de linea citados en las instrucciones 
GOTO, GOSUB y similares. Sin embargo, no se modifican las referencias a numeros de 
linea que est6n contenidas en expresiones literales, tales como las que intervienen en las 
6rdenes KEY, ni tampoco las contenidas en lineas REM, ni las expresiones-de-numero- 
de-lfnea incluidas en CHAIN y CHAIN MERGE. 

Los numeros de linea vdlidos son los comprendidos entre 1 y 65535. 
Palabras clave asociadas: DELETE, LIST. 

RESTORE 

RESTORE [numero-de-linea] 

10 READ s$:PRINT a$;" "; 

20 RESTORE 50 

30 FOR t=1 TO 500:NEXT:GOTO 10 

40 DATA restaure los dates para leerlos una vez 

50 DATA y otra 

run 

Orden. Hace que el 'puntero' de datos 'apunte' hacia el principio de la linea de DATA 
especificada por el parametro opcional numero-de-/rnea . Si se omite el pardmetro, el pun- 
tero senala la primera linea de DATA del programa. 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mds informacidn a este 
respecto. 

Pdabras clave asociadas: DATA, READ. 
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RESUME 

RESUME [numero-de-linea] 

10 ON ERROR GOTO 60 

20 FOR x=10 TO STEP -1:PRINT 1/x:NEXT 

30 END 

40 PRINT "llegamos hasta aqui despues del error" 

50 END 

60 PRINT "error numero":ERR;"en la linea";ERL 

70 RESUME 40 

run 

Orden. Reanuda la ejecuci6n normal del programa una vez detectado un error y procesa- 
do por una orden ON ERROR GOTO. Si se omite el numero-de-//hea, el programa con- 
timia en la misma linea en la que se produjo el error. Suprima el numero-de-\mea en el 
ejemplo anterior y ejecute nuevamente el programa: 

70 RESUME 
run 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME 
NEXT. 

RESUME NEXT 

RESUME NEXT 

10 ON ERROR GOTO 90 

20 PRINT "Pulse siempre [RETURNF 

30 INPUT "1";a 

40 INPUT "Z;a 

50 inpot "3";a REM error de sintaxis 

60 INPUT "4" ;a 

70 INPUT "5" ;a 

80 END 

90 PRINT "error numero";ERR;"en la linea":ERL 

100 RESUME NEXT 

run 
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Orden. Reanuda la ejecucion normal del programa una vez detectado un error y procesa- 
do por una orden ON ERROR GOTO. 

RESUME NEXT reanuda la ejecucion en la linea siguiente a aquella en la que se detecto 
el error. 

Palabras clave asociadas: DERR, ERL. ERR, ERROR, ON ERROR GOTO, RESUME. 

RETURN 

RETURN 

10 GOSUB 50:PRINT "despues del GOSUB":END 

50 FOR n=1 TO 20 

60 PRINT "subrutina" 

70 NEXT: PRINT 

80 RETURN 

run 

Orden. Senala el final de una subrutina. BASIC retoma de la subrutina a la instrucci6n 
inmediatamente posterior a aquella que invoco la subrutina. 

Palabras clave asociadas: GOSUB. 

RIGHT$ 

RIG HT$(expres/6n-/;tera/,/ong/tud-deseada ) 

10 MODE O:a$="0rdenador 464/6127' 
20 FOR n=1 TO 18:L0CATE 21-n.n 
30 PRINT RIGHT$(a$.n) 
40 NEXT 
run 

Funcion. Produce una cadena que consta del niimero de caracteres dad-> por \ong\tud- 
deseada (margen de a 255) tornados de la derecha de laexpres/dn-Htera/. Si la longitud 
de la expresion-literal es menor que la longitud-deseada, la cadena producida es la 
expresion-Zftera/ completa. 

Palabras clave asociadas: LEFT$, MID$. 
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RND 

R N D[[expresi6n-num6rica )] 

10 RANDOMIZE 

20 FOR x=1 TO -1 STEP -1 

30 PRINT "parametro de rnd =";x 

40 FOR n=1 TO 6 

50 PRINT RND(X) 

60 NEXT n,x 

run 

Funcidn. Da el siguiente niimero aleatorio de la sucesion en el caso de que la expresidn- 
num6rica tenga valor positivo o no haya sido especificada. 

Si laexpres/dn-num^rica toma valor cero, RND vuelve a dar el anterior niimero aleatorio 
generado. 

Si la expres/dn-num^rica toma un valor negativo, se inicia una nueva sucesion aleatoria 
y RND da su primer mimero. 

Palabras clave asociadas: RANDOMIZE. 

ROUND 

ROUND(expresidn-num6ricaf.dec/ma/esJ) 

10 FOR n=4 TO -4 STEP-1 
20 PRINT ROUND(1234.5678,n), 
30 PRINT "con <declmales> =";n 
40 NEXT 
run 

Funcidn. Redondea la expres/dn-numdr/ca a un numero de decimales o potencia de diez 
especificada por decimates. Si decimates es menor que cero, se redondea la expresidn- 
num6rica para dar un numero entero seguido de tantos ceros antes del punto decimal co- 
mo indique el pardmetro dec/mates. 

Palabras clave asociadas: ABS, CINT, FIX, INT. 
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RUN 

RUN expres(6n-//tera/ 

RUN "demo" 

Orden. Carga un programa de BASIC o un programa binario que este grabado en disco 
e inicia su ejecuci6n. Borra el programa anteriormente residente en la memoria. 

Los programas de BASIC protegidos pueden ser ejecutados por este procedimiento. 

Palabras clave asociadas: LOAD. 

RUN 

RUN [numero-de-linea] 

RUN 200 

Orden. Inicia la ejecuci6n del programa de BASIC actual a partir de la linea especificada 
por numero-de-linea , o a partir de la primera linea del programa si se omite el pardmetro. 

Los programas protegidos no pueden ser ejecutados por este procedimiento. 

Palabras clave asociadas: CONT, END, STOP. 

SAVE 

SAVE nornbre-de-fichero[,t/po-de-f/cheroJfj3arimetros-b/nar/osJ 
SAVE "fichero.xyz" 
graba el fichero en modo de BASIC no protegido normal. 

SAVE "fichero.xyz". P 
graba el fichero en modo de BASIC protegido. 

SAVE "flchero.xyif'.A 
graba el fichero en modo ASCII. 
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SAVE "fichero.xyz", 8,8000,3000,8001 

graba el fichero en modo binario. En este ejemplo, graba la zona de memoria del ordena- 
dor que empieza en la direccidn 8000 y tiene una extensi6n de 3000 bytes; el punto de en- 
trada opcional es 8001. 

Orden. Graba en disco o en cinta el programa actualmente residente en la memoria. Un 
fichero binario consiste en una zona de memoria copiada en el disco o en la cinta. Los 
pardmetros son en este caso: 

d/recc/dn-/n/c/a/,/ong/tud-de/-f/cherof,punto-de-entradaJ 

La memoria dedicada a la pantalla se puede grabar en forma de fichero binario. Es lo 
que se denomina 'volcado de la pantalla'; la orden necesaria es: 

SAVE " pantalla", B,&C000,&4000 

El fichero se puede volver a cargar con la orden: 

LOAD "pantalla" 

464. No es necesario especificar el nombre del fichero si se desea grabarlo como Unna- 
med file ('fichero sin nombre'). Ejemplo: 

SAVE "" 

El ordenador pide que 

Press REC and PLAY then any key: 

('Pulse REC y PLAY y luego cualquier tecla.') Usted debe pulsar los botones REC y 
PLAY del magnetofono y despues una de las teclas del ordenador. La cinta empezara a 
moverse y el ordenador grabara en ella el programa. 

Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo 

Saving NOMBREFI block 1 

Si el primer caracter del nombre del fichero es I se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnet6fono. En 
el caso de las ficheros grabados en disco, el ordenador ignora el distintivo !. Observe que 
el signo I no cuenta a efectos de la longitud del nombre del fichero. 
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Si se abandona el proceso pulsando [ESC], se provoca el mensaje 

Broken in 
Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN. 

SGN 

SG N (expresfdn-numerica ) 

10 FOR n=200 TO -200 STEP-20 

20 PRINT "SGN da"; 

30 PRINT SGN(n);"cuando el numero es";n 

40 NEXT 

run 

Funcidn. Determina el signo de la expres/dn-num^rica. Da el valor -1 si la expresfdn- 
num^r'ica es menor que cero; el valor si es igual a 0; y el valor 1 si es mayor que cero. 

Palabras clave asociadas: ABS. 

SIN 

SIN (expresion-numdrica ) 

10 CLS:DEG:ORIGIN 0,200 

20 FOR n=0 TO 720 

30 y=SIN(n) 

40 PLOT n*640/720.198*y:NEXT 

50 GOTO 50 

run 

Funcidn. Calcula el seno de la expres/6n-numer/ca . 

Observese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, RAD, TAN. 
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SOUND 

SOUND situaci6n-de-canales4)eriodo-de-tono[/iuraci6n[,volumen 

l^nvolvente-de-volumenl^nvolvente-de-tonolj'uldoU]]] 

10 FOR z=0 TO 4095 
20 SOUND 1,z,1,12 
30 NEXT 
run 

Orden. Programa la generacidn de un sonido. Los parametros son los siguientes: 

PaHimetro 1: s/tuacidn-de-cana/es 

El par^etro s/tuac/dn-de-canates debe tener un valor comprendido entre 1 y 255. El sig- 
nificado de cada uno de los bits es como sigue: 

Bit (decimal 1) enviar sonido al canal A (bit menos significativo) 

Bit 1 (decimal 2) enviar sonido al canal B 

Bit 2 (decimal 4) enviar sonido al canal C 

Bit 3 (decimal 8) sincronizacidn con el canal A 

Bit 4 (decimal 16 sincronizacidn con el canal B 

Bit 5 (decimal 32) sincronizacidn con el canal C 

Bit 6 (decimal 64) retencidn del canal de sonido 

Bit 7 (decimal 128) borrado del canal de sonido (bit mas significativo) 

Por ejemplo, el valor 68 del pardmetro s/tuac/dn-de-canates especifica: 

Enviar el sonido al canal C (4) y retenerlo (64). 

Partimetro 2: per\odo-de-tono 

Este pardmetro define el tono del sonido; es decir, identifica la nota (DO, RE, MI, FA, 
etc.). Cada nota tiene un mimero de identificacidn, que es el penodo-de-tono . V6ase el 
capitulo titulado 'Para su referenda . . .'. 

Par^metro 3: durac/dn 

Este pardmetro especifica la duracidn del sonido. Las unidades son de cent&imas de se- 
gundo (0.01 s). Si no se especifica duracidn, el ordenador toma el valor implicito para 
este parametro, que es 20 (un quinto de segundo). 

Si el valor de duracidn es cero, el sonido dura hasta el final de la envolvente de volumen 
especificada. 
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Si el valor de duracidn es negative, la envolvente de voliunen especificada se repite 
ABS(durac/6n) veces. 

Partoetro 4: volumen 

Este parametro especifica el volumen inicial de la nota. El margen de valores va de a 
15. Elvo/umen Oeselnunimo; el 15 es el mdximo. Si nose especifica vo/umen, elordena- 
dor toma el implicito, que es 12. 

Parimetro 5: envo/vente-de-vo/umen 

Se puede hacer que el volumen de la nota no sea constante, sino que vane con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variacion del volumen con 
el tiempo se utiliza la orden ENV. De hecho, se pueden crear hasta 15 envolventes de volu- 
men diferentes, con numeros de referenda del 1 al 15. El parametro envo/vente-de- 
vo/umen invoca una envolvente de volumen para su utilizacion por SOUND. 

V6ase la descripci6n de la orden ENV. 

Parametro 6: envo/vente-de-tono 

Se puede hacer que el tono de una nota no sea constante, sino que varie con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variacidn del tono con el tiem- 
po se utiliza la orden ENT. De hecho, se pueden crear hasta 15 envolventes de 
tono diferente, con numeros de referenda del 1 al 15. El parametro envo/vente-de-tono 
invoca una envolvente de tono para su utilizaci6n por SOUND. Si en la definici6n de ENT 
se ha puesto un mimero negativo como niimero de envolvente, en la instrucd6n SOUND 
se debe poner el valor absoluto de ese numero como envo/vente-de-tono. 

Vease la descripci6n de la orden ENT. 

Parametro 7: ru/do 

Se puede anadir ruido al sonido: la intensidad del ruido se controla con el pardmetro rui- 
do. El margen de valores va de (ruido apagado) hasta 31. 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mds amplia informacidn so- 
bre los sonidos. 

Palabras clave asociadas: ENT, ENV, ON SO GOSUB, RELEASE, SQ. 
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SPACED 

SPACE$(expres/dn-entera ) 

10 MODE 1 

20 PRINT "Pongamos 5 espacios entre uno"; 

30 PRINT SPACE$(5); 

40 PRINT "y otro" 

run 

Funcion. Crea una cadena literal consistente en el numero de espacios especificado por 
expres/dn-entera (margen de a 255). 

Palabras clave asociadas: SPC, STRING$, TAB. 

SPC 

Vease PRINT SPC. 

SPEED INK 

SPEED INK periodo- 7 ^eriodo-2 

10 BORDER 7,18 

20 FOR 1=30 TO 1 STEP-1 

30 SPEED INK i,i 

40 FOR t=1 TO 700:NEXT t,i 

run 

Orden. Establece la velocidad de alternancia entre los dos colores de tinta especificados 
mediante INK o BORDER. El primer pardmetro, periodo-7, especifica el tiempo para el 
primer color, en unidades de 0.02 s (cincuentavos de segundo); per/odo-2 especifica el 
tiempo para el segundo color. 

T6ngase cuidado al elegir colores y velocidades para evitar efectos mesmericos ('hipnoti- 
zantes'). 

Palabras clave asociadas: BORDER, INK. 
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SPEED KEY 

SPEED KEY demora-de-arranquejjeriodo-de-repeticidn 

10 CLS:FOR k=7 TO 1 STEP-2 

20 PRINT "Escriba su nombre y pulse [RETURNr 

30 SPEED KEY k,k 

40 LINE INPUT a$:NEXT 

50 PRINT "Es un nombre muy interesante" 

run 

Orden. Establece las caracteristicas de repeticion de las teclas. EI par^etro demora-de- 
arranque especifica el tiempo, en unidades de 0.02 s (cincuentavos de segundo) que ha de 
estar pulsada la tecla antes de que empiece a repetirse su accion. El parametro periodo-de- 
repet/c/dn especifica el tiempo que debe transcurrir entre cada dos repeticiones sucesivas. 

SPEED KEY solamente actua sobre las teclas que son de repeticion implicitamente o que 
han sido definidas como tales mediante KEY DEF. 

Cuando se vaya a utilizar valores muy bajos del pardmetro demora-de-arranque, es acon- 
sejable definir previamente una de las teclas numericas psira que devuelva el teclado a la 
situacion implicita, SPEED KEY 30,2. La orden 

KEY O/'SPEED KEY 30,Z'+CHR$(13) 

restablece los valores implicitos de los parametros de SPEED KEY en cuanto se pulsa la 
tecla del del teclado numerico. 

Palabras clave asociadas: KEY DEF. 

SPEED WRITE 

SPEED WRITE expres/dn-entera 

SPEED WRITE 1 

Orden. Establece la velocidad de transferencia de datos al magnetofono del 464. Las velo- 
cidades son: 2000 bits por segundo, si expresidn-entera vale 1, y 1000 bits por segundo 
si expres/dn-entera vale 0. Esta ultima es la velocidad implicita. Para leer una cinta no 
es necesario saber a que velocidad ha sido grabada, pues el ordendor selecciona automati- 
camente la velocidad correcta de lectura. 
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La m^ma fiabilidad en la transferencia de datos se obtiene con la velocidad minima, que 
ademds es la implicita: SPEED WRITE 0. 

Esta orden no ejerce ningiin efecto sobre el sistema de grabaci5n en disco. 

Palabras clave asociadas: OPENOUT, SAVE. 

SQ 

SQ(cana/) 

10 SOUND 65,100,100 
20 PRINT SQ(1) 
run 
67 

Funcidn. Genera un niimero que informa del estado de la cola de sonido del cana/ especi- 
ficado. El parametro puede tener uno de los siguientes valores: 

1 para el canal A 

2 para el canal B 
4 para el canal C 

La funcidn SQ produce un niimero que se interpreta, segun sea el valor de sus bits, de 
la forma siguiente: 



Bits 0, 1 y 2 
Bits 3, 4 y 5 
Bit 6 
Bit 7 



numero de huecos libres en la cola 

estado de sincronizacidn de la primera nota de la cola 

la primera nota estd retenida 

el canal esti activo en la actualidad 



donde el bit es el menos significativo y el bit 7 el mds signiHcativo. 

Como se puede apreciar, si el bit 6 estd a 1, el bit 7 tiene que estar a cero, y viceversa. 
Analogamente, si alguno de los bits 3, 4 y 5 estd a 1, los bits 6 y 7 tienen que estar a cero. 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mds informacidn acerca de 
los sonidos. 

Palabras clave asociadas: ON SQ GOSUB, SOUND. 
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SQR 

SQR(expres/dn-num6rica ) 

PRINT SQRO) 
3 

Funcion. Da el valor de la raiz cuadrada de la expresidn-num^nca. 
Palabras clave asociadas: ninguna. 

STEP 

V6ase FOR. 

STOP 

STOP 

10 FOR n=1 TO 30:PRINT n.NEXT 

20 STOP 

30 FOR n=31 TO 60:PRINT n:NEXT 

run 

cont 

Orden. Detiene la ejecucion del programa, pero deja BASIC en un estado tal, que el pro- 
grama puede ser reanudado mediante CONT. STOP se utiliza para establecer puntos de 
parada en la depuraci6n de programas. 

Palabras clave asociadas: CONT, END. 
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STR$ 

STR$(expres/6n-numerica ) 

10 a=&FF :REM 255 en hexadecimal 

20 b=&X1111 :REIVI 15 en binario 

30 c$="***" 

40 PRINT c$+STR$(a+b)+c$ 

run 

*** 270*** 

Funcion. Convierte la expres/dn-numerica en una cadena literal formada por los mismos 
digitos decimales. 

Palabras clave asociadas: BIN$, DEC$, HEX$, VAL. 

STRING$ 

STRING$(/ongftud^spec/f/cador-de/-car^cter) 
PRINT STRING$(40,"*") 

Funcion. Da una cadena literal que consiste en el caracter especificado repetido tantas ve- 
ces como indique \ongitud (margen de a 255). N6tese que en el ejemplo anterior se po- 
dria haber puesto tambien: 

PRINT STRING$(40/'4Z') 

donde el especif/cador-de/-car^cter, el numero 42, es el c6digo ASCII del asterisco. 
Palabras clave asociadas: SPACE$. 

SWAP 

Vease WINDOW SWAP. 
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SYMBOL 

SYM BOL nijmero-de/-caracter,//sta-de:fi/a 

10 MODE 1:SYMBOL AFTER 105 

20 fila1=255:REM 11111111 en binario 

30 fila2=129:REM 10000001 en binario 

40 fiia3=189:REIVI 10111101 en binario 

50 fiia4=153:REIVI 10011001 en binario 

60 fila5=153:REM 10011001 en binario 

70 fiia6=189:REI\/l 10111101 en binario 

80 fila7=129:REIVI 10000001 en binario 

90 fila8=255:REIVI 11111111 en binario 

100 PRINT "L^. linea 110 redefine la letra i (105). 

Teclee varias voces esa letra y luego liste 

el programa." 
110 SYMBOL 1(S,fila1,fila2,fila3,fila4,fila5, 

fila6,fila7,fila8 
run 

Orden. Redefine la forma de un cardcter. El margen para todos los parametros es de 
a 255. 

Con objeto de reservar espacio en la memoria del ordenador para la descripci6n del carac- 
ter, es necesario ejecutar previamente la orden: 

SYMBOL AFTER x 

donde x debe ser igual o menor que el numero del caracter que se va a definir. 

A continuacion se emite la orden SYMBOL seguida, en primer lugar, por el numero del 
caracter. 

El caracter puede ser directamente accesible por el teclado; en cualquier caso se lo puede 
escribir mediante la orden 

PRINT CHR$(x) 

Despues de SYMBOL x viene una sucesion de hasta 8 parametros, cada uno de los cuales 
describe una fila de la matriz del caracter. El margen de estos parametros es de a 255. 
La representaci6n binaria de cada parametro indica la situacion de 'encendido' o 'apaga- 
do' de cada uno de los puntos de la fila correspondiente. 
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Por ejemplo, si el primero de los ochos pardmetros vale 1, la fUa superior del cardcter 
tiene la representaci6n binaria 00000001. Cada 1 indica que el correspondiente punto del 
cardcter se aumina con el color de PEN; cada indica que el correspondiente punto no 
serd visible, pues se lo escribe con el color de PAPER. Asi pues, la primera fila de este 
cardcter consiste en un punto en el extremo superior derecho. Los siguientes pardmetros 
son 3,7,15,31,63,0,0. La representaci6n binaria de los ocho parametros es como sigue: 

pardmetro (fila) 1: 00000001 en binario ( 1 en decimal) 

parametro (fila) 2: 0000001 1 en binario ( 3 en decimal) 

pardmetro (fila) 3: 00000111 en binario ( 7 en decimal) 

parametro (fila) 4: 00001111 en binario (15 en decimal) 

parametro (fila) 5: 00011111 en binario (31 en decimal) 

parametro (fila) 6: 00111111 en binario (63 en decimal) 

parametro (fila) 7: 00000000 en binario ( en decimal) 

parimetro (fila) 8: 00000000 en binario ( en decimal) 

Observando el conjunto de las representaciones binarias podemos hacemos una idea del 
aspecto que tendra el caracter. Asignemos estos pardmetros al cardcter niimero 255 me- 
diante la orden: 

SYMBOL 255,1,3,7,15,31,63,0,0 

Al ser los dos ultimos, podemos omitirlos: 

SYMBOL 255,1,3,7,15,31,63 

Los pardmetros se pueden introducir en forma binaria, con lo que se ahorra el trabajo 
de convertirlos previamente a la forma decimal. (Recu^rdese que el prefijo para mimeros 
binarios es &X.) Por ejemplo: 

SYMBOL 255,&X00000001,&X00000011,&X00000111, 
&X00001111,&X00011111,&X00111111 

Finalmente, para ver el resultado de la definici6n, ejecute la orden 

PRINT CHR$(255) 

Si se redefine uno de los caracteres accesibles por el teclado, el nuevo caracter aparecera 
en la pantalla cada vez que se pulse la tecla correspondiente o se lo escriba con PRINT 
CHR$( ). Por otra parte, BASIC reconoce la forma del nuevo cardcter cuando trata de 
leerlo en la pantalla, y no lo rechaza por incomprensible. 
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En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mds informacion sobre la 
redefinicion de caracteres. 

Palabras clave asociadas: COPYCHR$, HIMEM, MEMORY, SYMBOL AFTER. 

SYMBOL AFTER 

SYMBOL AFTER expresidn-entera 

10CLS 

20 SYMBOL AFTER 115 

30 PRINT "La linea 40 redefine la letra s "; 

40 SYMBOL 115,0,56,64,64,48,8,8,112 

50 PRINT "a s" 

60 PRINT "Cancele esta definicion de s" 

70 PRINT "tecleando SYMBOL AFTER 240r' 

run 

Orden. Establece el niimero de caracteres redefmibles por el usuario (en el margen de 
a 256). El niimero implicito es 240, lo que deja 16 caracteres (del 240 al 255) definibles 
por el usuario. Si expresidn-entera es 32, todos los caracteres, del 32 al 255, son defini- 
bles. SYMBOL AFTER 256 impide la redefinici6n de caracteres. 

Cada vez que se ejecuta una orden SYMBOL AFTER, quedan anuladas todas las redefini- 
ciones y la forma de todos los caracteres vuelve a ser la impllcita. 

La orden SYMBOL AFTER no se puede ejecutar despuds de modificar el valor de HI- 
MEM, lo cual puede ocurrir como resultado de una orden MEMORY, o bien al abrir un 
tampon para la grabacion o lectura de un fichero con OPENOUT u OPENIN. En tales 
circunstancias se provoca el mensaje 'Improper argument' ('argumento inadecuado', 
error niimero 5), a menos que la situaci6n anterior fuera SYMBOL AFTER 256. 

En la parte 2 del capitulo 'Cuando usted guste . . . ' daremos mas informaci6n sobre la 
redefinicion de caracteres. 

Palabras clave asociadas: HIMEM, MEMORY, SYMBOL. 

TAB 

Vease PRINT TAB. 



Lista completa de las palabras clave del BASIC de AMSTRAD 3/93 



TAG 

TAG Hfexpresion-de-numero-de-canal] 

10 INPUT "Escriba su nombre: ",a$:CLS 

20 PRINT "Se mueve usted mucho, ";a$ 

30 TAG 

40 x=LEN(a$)*17:y=50+RND*300:MOVE -x,y 

50 FOR f=-x TO 640 STEP RND*7+3 

60 MOVE f,y:PRINT" ";a$;: FRAME: NEXT 

70 FOR b=640 TO -x STEP-RND*7+3 

80 MOVE b,y:PRINT a$;" ";:FRAME:NEXT 

90 GOTO 40 

run 

Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla grdfica, 
en la posici6n actual del cursor. De esta forma se puede mezclar texto con grdficos, o mo- 
ver los caracteres pixel a pixel. Si se omite la expresidn-de-niimero-de-cana/, se supone 
el #0. 

El punto superior izquierdo del caracter se conecta al cursor grafico. Si se omite el signo 
de punto y coma al final de la instruccion PRINT, los codigos de retorno del carro y de 
avance de linea se visualizan como caracteres graficos. 

Si se ha aplicado TAG al canal #0, BASIC desactiva TAG al volver a modo directo. 

Palabras clave asociadas: TAGOFF. 

TAGOFF 

TAGOFF f#expresidn-de-numero-de-cana/J 

10 MODE 2:TAG :REM texto iigado al cursor grafico 

20 periodo=1984:FOR x=1 TO 640 STEP 70 

30 MPVE x,400:DRAWR 0,-350 

40 periodo=periodo+1:PRINT periodo;:NEXT 

50 TAGOFF :REM texto desconectado de cursor grafico 

60 LOCATE 34,25:PRINT"Datos anuaies" 

70 GOTO 70 

run 
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Orden. Cancela la orden TAG para el c£mal especificado (o para el #0, si no se especifica 
otro) y redirige el texto a la posicion que tenia el cursor de texto antes de ejecutarse TAG. 

Palabras clave asociadas: TAG. 



TAN 

TAN (expres/dn-num^rica ) 

PRINT TAN(46) 
1.61977519 

Funcion. Calcula la tangente de laexpres/dn-numer/ca, que debe tener un valor compren- 
dido entre -20000 y +20000. 

Obs^rvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, DEG, RAD, SIN. 

TEST 

TEST(coordenada-x ^oordenada-y ) 

10CLS 

20 PRINT "Estamos utilizando la pluma numero"; 

30 PRINT TEST(10,386) 

40 PRINT "Cambie la pluma y el modo "; 

50 PRINT "... y ejecute otra vez el programa." 

run 

Funcidn. Traslada el cursor grafico al punto de coordenadas absolutas especificadas e in- 
forma del valor de la tinta presente en esa posicion. 

Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS. 



Lista completa de las palabras clave del BASIC de AMSTRAD 3/95 



TESTR 

TESTR|/ncremento-de-x,incremento-cte-y) 

10 MODE 0:FOR x=1 TO 15:LOCATE 1,x 

20 PEN x:PRINT STRING$(10,143);:NEXT 

30 MOVE 200,400:PEN 1 

40 FOR n=1 TO 23:LOCATE 12,n 

50 PRINT "pen";TESTR|0,-16):NEXT 

run 

Funcidn. Lleva el cursor grdfico a un punto cuya posici6n, referida a la posici6n actual, 
viene dada por los parametros Incremento-de-x e incremento-de-y , e infonna del valor 
de la tinta presente en ese punto. 

Palabras clave asociadas: MOVE, MOVER, TEST, XPOS. YPOS. 

THEN 

Vease IF. 

TIME 

TIME 

10 CLS:REM reloj 

20 INPUT "Hora:".hora 

30 INPUT "Minuto: ",minuto 

40 INPUT "Segundo: ",segundo 

50 CLS:referencia=INT(TIME/300) 

60 WHILE hora<13 

70 WHILE mlnuto<60 

80 WHILE tlempo<60 

90 tlempo=(INT(TIME/300)-referencia)+segundo 

100 LOCATE 1,1 

110 PRINT USING "## ";hora,minuto,tiempo 

120 WEND 

130 tiempo=0:segundo=0:mlnuto=minuto+1 

140 GOTO 50 

150 WEND 
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160 minuto=0:hora=hora+1 
170 WEND 
180 hora=1 
190 GOTO 60 



Funcidn. Da el tiempo transcurrido desde el momento en que se encendi6 o reinicializo 
la miquina por ultima vez (excluyendo el dedicado a escribir o leer en el disco), en unida- 
des de 1/300 s. Expresado en segundos, el tiempo es, pues, TIME/300. 

Palabras clave asociadas: AFTER, EVERY, WEND, WHILE. 



TO 

Vease FOR. 

TROFF 
TRON 

TROFF 
TRON 

10 TROFF:PRINT:PRINT "TROFF' 

20 FOR n=1 TO 8 

30 PRINT "Programa funclonando":NEXT 

40 IF f=1 THEN END 

50 TRON:PRINT:PRINT "TRON" 

60 f=1:GOTO 20 

run 

Orden. Sigue la 'traza' del programa escribiendo los niimeros de cada linea antes de ejecu- 
tarla. Los niimeros de Unea aparecen entre corchetes [ ]. 

TRON activa este modo; TROFF lo desactiva. 

TRON es particularmente util para estudiar la secuencia de niimeros de linea anterior al 
momento en que se produce un error. 

Palabras clave asociadas: ninguna. 
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UNT 

U NT{expresi6n-de-direcci6n-de-memoria ) 

PRINT UNT(&FF66) 
-154 

Orden. Da un entero, comprendido entre -32768 y +32767, que es el equivalente en 
'complemento a dos' al valor de expresion-de-direccion-de-memoria. 

Palabras clave asociadas: CINT, FIX, INT, ROUND. 

UPPER$ 

UPPER$(expres/dn-//tera/) 

10 CLS:a$="mire como crecenl" 

20 PRINT UPPER$(a$) 

run 

Funcion. Da una cadena literal que es copia de la expresidn-literal especificada, pero con- 
virtiendo las letras minusculas en mayiisculas y dejando inalterados los restantes caracte- 
res. Esta funcion es litil en el proceso de datos que puedan contener minusculas mezcladas 
con ma3Tisculas. 

Palabras clave asociadas: LOWER$. 

USING 

Vease PRINT USING. 

VAL 

VAL(expres;dn-//tera/) 

10 CLS:PRINT "Ya he aprendido la tabia de multlplicar" 

20 PRINT:PRINT "Pulse una tecia del 1 ai 9:" 

30 a$=INKEY$:IF a$="" THEN 30 

40 n=VAL(a$):IF n<1 OR n>9 THEN 30 

50 FOR x=1 TO 10 
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60 PRINT n;"x";x;"=";n*x 

70 NEXT:GOTO 20 

run 

Funcidn. Da el valor numerico (incluyendo el signo y el punto decimal) de los primeros 
caracteres de la expres\6rt-\\tera\ que scan digitos. 

Si el primer caracter no es un digito, el valor generado es 0. Si el primer caricter es el 
signo menos o el punto decimal y va seguido de caracteres no numdricos, se provoca el 
mensaje 'Type mismatch' ('incongruencia de tipos', error niimero 13). 

Palabras clave asociadas: STR$. 



VPOS 

VPOS(#expresion-de-numero-de-cana/) 

10 MODE 1:B0RDER 0:LOCATE 8,2 

20 PRINT "Utilice las teclas subir/bajar cursoi" 

30 WINDOW 39.39.1, 25: CURSOR 1.1 

40 LOCATE 1.13 

50 IF INKEY{0)<>-1 THEN PRINT CHR$(11); 

60 IF INKEY(2)<>-1 THEN PRINT CHR$(10); 

70 LOCATE #1.1.23 

80 PRINT #1."Posiclon vertical der 

90 PRINT #1."cursor de texto ="; 

100 PRINT #1.VPOS(#0):GOTO 50 

run 

Funcidn. Da la posicion vertical del cursor de texto, referida al extremo superior de la 
ventana. Es necesario especificar laexpresion-de-numero-de-cana/, pues el ordenador no 
da por supuesto el #0. 

WAIT 

WAIT niimero-de-puerta .m^scaraf .inversion] 

WAIT &FF34,20.25 

Orden. Espera hasta que por la puerta de entrada/salida especificada por numero-de- 
puerta se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el valor 
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recibido y el parimetro inversidn se realiza la operaci6n 16gica XOR; con este resultado 
y el par^etro mascara se realiza la operacion 16gica AND; el proceso se repite hasta que 
el resultado final sea disdnto de cero. 

BASIC espera indeflnidamente hasta que se cumple la condici6n requerida. 

Esta orden no debe ser utilizada por quien no sepa cu^es son sus efectos. 

Palabras clave asociadas: INP, OUT. 

WEND 

WEND 

WEND 

Orden. Setiala el final del grupo de instrucciones cuya ejecuci6n se repite en un buck del 
tipo WHILE. BASIC determina automdticamente a que WHILE corresponde cada 
WEND. 

Palabras clave asociadas: TIME, WHILE. 

WHILE 

WHILE expresldn-fdgica 

10 CLS:PRINT "Temporizador de 10 segundos":t=TIME 

20 WHILE TIME<t+3000 

30 SOUND 1,0,100,15 

40 WEND:SOUND 129,40,30,15 

run 

Orden. Repite la ejecuci6n de un grupo de instrucciones mientras se cumpla cierta condi- 
ci6n. La orden WHILE seilala el principio del bucle y especifica la condici6n 16gica me- 
diante la expresidn-ldgica . 

Palabras clave asociadas: TIME, WEND. 
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WIDTH 

WIDTH expresidn-entera 
WIDTH 40 

Orden. Informa a BASIC de cudntos caracteres por h'nea se deben enviar a la impresora. 
BASIC envia a la impresora los c6digos de retomo del carro y avance de linea^en el mo- 
mento adecuado. 

El valor implicito es 132. 

La orden WIDTH 256 suprime los c6digos de retorno del carro y avance de linea, dejando 
que el niimero de caracteres por linea sea totalraente controlado por la impresora. En todo 
caso, la orden PRINT envia a la impresora esos dos c6digos siempre que no se incluya 
el signo de punto y coma al final. 

Palabras clave asociadas: POS. 

WINDOW 

WINDOW [#expresidn-de-numero-de-cana/Jizqu/erda^erecha^rriba^bajo 

10 MODE 0:BORDER 0:REM carta de ajuste 

20 INK 0,0:INK 1,2S:INK 2,23:INK 3,21 

30 INK 4,17:INK 5,6:INK 6,2:INK 7,26 

40 PAPER 0:CLS 

50 PAPER 1:WIND0W 2,4,1, 18:CLS 

60 PAPER 2:WIND0W 5,7,1,18:CLS 

70 PAPER 3:WIND0W 8,10,1,18:CLS 

80 PAPER 4:WIND0W 11,13,1,18:CLS 

90 PAPER 5:WIND0W 14,16,1, 18:CLS 

100 PAPER 6:WIND0W 17,19,1,18:CLS 

110 PAPER 7:WIND0W 2,19,19,25:CLS 

120 GOTO 120 

run 

Orden. Especifica las dimensiones y situacidn de una ventana de texto. Los valores de los 
pardmetros izquierda, derecha, arriba y abajo indican los numeros extremos de columna 
y de fila, y deben ser consistentes con el modo de pantalla actual. 

Si no se especifica la expres/dn-de-numero-de-cana/, BASIC supone el #0. 
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En la parte 2 del capitulo titulado 'Cuando usted guste . . . ' daremos mds informacion 
sobre ventanas de texto. 

Palabras clave asociadas: WINDOW SWAP. 

WINDOW SWAP 

Wl N DOW SWAP expresidn-de-numero-de-canal^xpresidn-de-numero-de-canal 

10 MODE 1:INK 1,24:INK 2,9:rNK 3,6 

20 WINDOW 21,40,13,25:PAPER 3 

30 WINDOW #1.1.20,1,12:PAPER #1,2 

40 CLS:PRINT " Ventana numero 0' 

50 CLS #1:PRINT #1," Ventana numero 1" 

60 LOCATE 1,6 

70 PRINT" Ventana roja (0)";SPC(2) 

80 LOCATE #1,1,6 

90 PRINT #1," Ventana verde (1)" 

100 FOR t=1 TO 1000:NEXT 

110 WINDOW SWAP 0,1:GOTO 60 

run 

Orden. Intercambia las caracteristicas de las dos ventanas de texto especificadas por las 
expres\ones-de-numero-de-cana\ . 

Se deben especificar los dos numeros de canal, pero en este caso no deben ir precedidos 
del signo #. 

En la parte 2 del capitulo titulado 'Cuando usted guste ..." daremos mds informaci6n 
sobre ventanas de texto. 

Palabras clave asociadas: WINDOW. 

WRITE 

WRITE f#expres/dn-de-niimero-de-cana/.J[/ista-de-datosJ 

10 REM escribir variables 
20 INPUT "Escribe un numero: ",a 
30 INPUT "Escribe una palabra: ",a$ 
40 OPENOUT "dates" 
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50 WRITE #9,a,a$ 

60 CLOSEOUT:PRINT"Datos grabados." 

run 

Orden. Envia los valores de los elementos de la i/sta-de-datos al canal especificado por 
la expres/dn-de-numero-de-cana/. Los elementos Iran separados por comas; las cadenas 
literales iran entre comillas. 

En el ejemplo anterior, los valores captados por el teclado son enviados al canal #9 
(disco). 

Para leer esos valores despues de grabarlos en disco, se necesita un programa tal como 
el siguiente: 

10 REM leer variables 

20 OPENIN "datos":INPUT #9.a.a$ 

30 CLOSEINiPRINT "Los dos valores son:" 

40 PRiNT:PRINT a,a$ 

run 

Palabras clave asociadas: INPUT, LINE INPUT, OPENOUT. 

XOR 

argumento XOR argumento 

IF"juan"<"pepe" XOR "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

iF"pepe"<"juan" XOR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF"juan"<"pepe" XOR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

PRINT 1 XOR 1 


PRINT XOR 


PRINT 1 XOR 

1 
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Operador. Realiza la operaci6n 16gica 'o exclusive' bit a bit entre enteros. El resultado 
es 1 a menos que ambos bits tengan el mismo valor. 

Para mas amplia informaci6n sobre operaciones 16gicas, consulte la parte 2 del capftulo 
titulado 'Cuando usted guste . . . '. 

Palabras clave asociadas: AND, OR, NOT. 

XPOS 

XROS 

10 MODE 1:DRAW 320,200 

20 PRINT "Posicion horizontal del cursor grafico =": 

30 PRINT XPOS 

run 

Funcidn. Da el valor de la posicion horizontal (coordenada x) del cursor grafico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, YPOS. 

YPOS 

YPOS 

10 MODE 1:DRAW 320,200 

20 PRINT "Posicion vertical del cursor grafico ="; 

30 PRINT YPOS 

run 

Funcidn. Da el valor de la posici6n vertical (coordenada y) del cursor grdfico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, XPOS. 

ZONE 

ZONE expresidn-entera 

10 CLS:FOR z=2 TO 20 

20 ZONE z 

30 PRINT "X',"X ZONE =";z:NEXT 

run 
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Orden. Gambia la anchura de la zona de escritura (especificada en las instrucciones 
PRINT cuando se utiliza una coma para separar elementos). La achura implicita es 13 co- 
lumnas, pero se la puede cambiar al valor dado por la expresidn-entera, cuyo margen es 
de 1 a 255. 

Palabras clave asociadas: PRINT. 
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Capitulo 4 

Discos (solo 6128) 



Discos de trabajo 

En esta seccion vamos a explicar comopreparar discos para el trabajo dia- 
rio y a presentar algunas funciones de CP/M y sus programas de ayuda. 

Temas tratados: 

* Copia del disco maestro. 

* Introduccion a CP/M Plus. 

* Utilizacion de los ficheros HELP. 

* Utilizacion de una y dos unidades de disco. 

* Copia de ficheros con PIP. 

* Trabajo con discos para BASIC (sin CP/M). 

* Instalacion de aplicaciones "Have en mano" en BASIC de 
AMSTRAD. 

* Instalacion de aplicaciones "Have en mano" en CP/M Plus. 

En la parte 7 del 'Curso de introduccion' hemos explicado como inicializar un disco virgen 
para utilizarlo tanto con BASIC como con CP/M. 

En la parte 10 del 'Curso de introduccion' vimos como copiar discos con el programa 
DISCKIT (cara 1 del disco del sistema). 

En esta seccion vamos a abordar la preparacion de discos con los programas deseados. 



Discos (s61o 6128) 4/1 



Copia de los discos maestros 

Es muy importante hacer una copia del disco maestro del sistema y de ayudas que se sumi- 
nistra con el ordenador y guardar en lugar seguro el original, pues seria muy costoso susti- 
tuirlo si resultara dafiado. Recuerde que el disco suministrado tiene dos car as: 

La cara 1 es la mas importante; contiene el sistema operativo CP/M Plus y un conjunto 
de programas de ayuda para el manejo de discos. 

La cara 2 contiene una serie de ficheros para programacion en ensamblador. 

Considere sus copias de los discos maestros como una 'biblioteca' de programas. Para eje- 
cutar uno de estos programas, el procedimiento habitual es insertar en la unidad el 'disco 
de biblioteca' en el que se encuentre el programa y cargjurlo con el, en lugar de copiar el 
programa en un disco nuevo y cargarlo desde 6ste. 

Insistimos una vez mds en que los 'discos de biblioteca' para el trabajo diario tienen que 
ser copias del disco maestro que se suministra con el ordenador. 

Recuerde que el programa DISCKIT (cara 1) inicializa el disco destine al mismo tiempo 
que copia, de modo que se puede hacer una copia en un disco virgen sin necesidad de ini- 
cializarlo previamente. 



Introduccion a CP/M Plus 



El lector ya se habra habituado a trabajar con el BASIC de AMSTRAD, programa que 
controla el CPC6128 desde el momento en que se lo enciende hasta que, o bien se ejecuta 
algun programa binario desde AMSDOS, o bien se carga CP/M Plus con la orden externa 
Icpm. 

Una vez cargado CP/M Plus, el ordenador no necesita volver a leer la cara 1 (salvo, por 
supuesto, que se quiera cargar alguno de los programas de ayuda que estan grabados en 
esa cara). Por esta razon, el disco de arranque es el linico que tiene que ser un disco de 
sistema; todos los demas pueden tener formato 'de datos', lo que les da mayor capacidad 
de almacenamiento. 

Para ejecutar un programa de CP/M lo linico que hay que hacer es insertar el disco en 
el que este grabado y escribir el nombre del programa. Los datos utilizados por el progra- 
ma pueden estar en el mismo disco o en otro. CP/M Plus permite cambiar discos, lo mis- 
mo que AMSDOS. Si por comodidad se prefiere agrupar varios programas en un mismo 
disco, quiza junto con algunos programas de ayuda, se puede utilizar el programa PIP 
de la cara 1 segiin explicaremos mas adelante (en este capftulo y en el siguiente). 



4/2 Discos (s61o 6128) 



El programa PROFILE 

El disco del sistema contiene un fichero especial, Uamado PROFILE. SUB, que contiene 
una serie de ordenes que se ejecutan automdticamente en el momento de cargar CP/M 
Plus. Si no lo ha hecho todavia, inserte en la unidad una copia de la cara 1 de los discos 
maestros, cargue CP/M Plus y, cuando aparezca el mensaje A>, escriba: 

REN PROFILE.SUB=PROFILE.ENG 

Esta orden ha creado el fichero PROFILE.SUB a partir de PROFILE.ENG cambiandole 
el nombre (REN es abreviatura de rename, "renombrar"). Este fichero, que serd ejecuta- 
do siempre que se cargue CP/M Plus, contiene las siguientes ordenes: 

SETKEYS KEYS.CCP 
LANGUAGE 3 

las cuales modifican la funci6n de las teclas del cursor (para adaptarlas a la escritura de 
ordenes de CP/M) y transforman la salida por la pantalla de la versi6n EE.UU. a la ver- 
sion UK (Reino Unido), haciendo que la tecla IMAYS]3 genere el simbolo '£'. 

Cuando el teclado ha sido preparado con la orden SETKEYS.CCP, las lineas de 6rdenes 
de CP/M se pueden editar de forma similar a como se hace en BASIC. En el capi'tulo 5, 
parte 2, explicaremos SETKEYS detalladamente. 



^Cuantas unidades de disco? 

Cuando se carga CP/M Plus, una de sus primeras acciones es detectar cuantas unidades 
de disco hay conectadas. Este numero se visuaUza como parte del mensaje de presenta- 
cion. El resultado de la comprobacion se puede falsear si en la segunda unidad hay un 
disco parcialmente insertado. 

Todos los mensajes de error relativos a los mecanismos de las unidades de disco se visuali- 
zan en la h'nea 25, en forma de cinta "sin fin". Los programas solamente utiUzan las pri- 
meras 24 lineas de la pantalla. 

Cuando solamente se dispone de la unidad de disco incorporada al ordenador, en la ulti- 
ma linea de la pantalla aparece tambien el mensaje 'Drive is A:' o 'Drive is B:' ("la uni- 
dad es . . . "). De esta forma CP/M Plus permite utilizar un solo dispositivo fisico como 
si se tratase de dos. Cuando sea necesario, el usuario tendra que intercambiar los discos; 
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el ordenador pedira en cada momento el disco requerido por el programa. Este sistema 
hace que no sea imprescindible comprar la segunda unidad de disco, pero no puede evitar 
la necesidad de intercambiar los discos, a veces muy frecuentemente, lo que representa 
una considerable perdida de tiempo y un riesgo de error humano. 



Copia de ficheros de un disco a otro 

El programa de ayuda PIP (abreviatura de Periferal Interchange Program, Vprograma de 
intercambio entre periftricos") permite, entre otras cosas, copiar ficheros de un disco a 
otro: 

Para cargar PIP, inserte en la unidad la cara 1 y escriba, tras el mensaje A>, lo siguiente: 
PIP 

Un nuevo signo 'inductor', el *, indicara que PIP ha quedado cargado correctamente. 
Normalmente se copiara de un disco fuente (en la unidad A:) a un disco destino (en la 
unidad B:). Ya hemos visto que en los sistemas de una sola unidad de disco las unidades 
A: y B: son el mismo dispositivo fisico. 

Para copiar un fichero (por ejemplo, el SUBMIT.COM), escriba despues del * lo 
siguiente: 

B:=A:SUBMIT.COM 

Para copiar todos los ficheros del disco fuente al disco destino, escriba: 
B:=*.* 

Para abandonar PIP, pulse [RETURN] tras el inductor *. 

PIP es un programa muy complejo. En el capitulo 5 lo describiremos mas detalladamente. 

Disco para BASIC (sin CP/M) 

Como ya hemos mencionado, el unico disco que se necesita con formato de sistema es 
el que se utiliza para cargar CP/M Plus. Por lo tanto, los discos destinados a BASIC pue- 
den tener formato 'de datos', con el cual la capacidad de almacenamiento es algo mayor. 
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El disco debe ser inicializado con el programa DISCKIT. Para copiar programas se puede 
utilizar PIP (cara 1), o bien cargarlos (LOAD) y grabarlos (SAVE) desde BASIC. 



Discos Have en mano de BASIC de 
AMSTRAD 

Si usted compra una aplicacion escrita en BASIC de AMSTRAD para el CPC6128, debe- 
ria estar lista para funcionar sin mas preparatives. Todo lo que tendra que hacer es co- 
piarla en un disco de trabajo y guardar el original. 

Programas Have en mano de CP/M 

El sistema operativo CP/M permite disponer de una inmensa variedad de programas que 
ban sido escritos para los ordenadores personales que pueden trabajar con CP/M. El fun- 
cionamiento basico de los programas ya esta decidido; todo lo que hay que hacer es insta- 
larlos en un disco adecuado y quiza informarles del metodo de gestion de la pantalla ca- 
racteristico del CPC6128. 

Un conjunto de programas disenado para realizar una aplicaci6n especifica es lo que se 
denomina un 'paquete'. Los paquetes estan disenados normalmente para funcionar en di- 
versos ordenadores, cada uno de los cuales tendra un propio metodo de gestion de la pan- 
talla y de movimiento del cursor. 

El CPC6128, cuando funciona con CP/M, esta dotado de un 'emulador de consola'; las 
caracten'sticas son diferentes de los codigos de control utilizados por BASIC. 

En ocasiones el paquete que usted adquiere ya habra sido 'instalado' en el Amstrad; de 
lo contrario, ofrecera un menu para realizar la adaptacion. Si el programa da instruccio- 
nes para el protocolo Zenith Z19/Z29, sigalas. Si no menciona esta variante ni tampoco 
una especifica de Amstrad, consulte la seccion titulada 'Configuracion de un programa 
en CP/M', en la que se indica que codigos se deben mandar a la pantalla para producir 
los efectos requeridos por los paquetes. Generalmente, la instalacion (o adaptacion) re- 
querira que se tecleen los codigos adecuados cuando el programa lo pida. Siga, en todo 
caso, las instrucciones suministradas con los programas. 

El paquete que usted adquiera tiene que estar en un disco adecuado para este sistema. Casi 
todos los ordenadores tienen su propio formato de disco. Aunque el tamano sea el mismo, 
no por ello esta garantizada la compatibilidad. Al comprar un paquete de programas, pi- 
da a su proveedor la version para Amstrad CPC6128 en discos de 3 pulgadas. 
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Creacion de un disco de trabajo para 
programas Have en mano de CP/IVI 

Es aconsejable copiar los programas del paquete en otro disco y guardar el original. Ade- 
mas, suele ser conveniente copiar en el mismo disco el programa SETKEYS.COM, y qui- 
za tarabien SUBMIT.COM (con sus correspondientes ficheros de instrucciones). 

Se puede utilizar PIP para copiar los ficheros .COM, y tambien para elaborar un fichero 
de instrucciones para SUBMIT. En esta ultima aplicacion PIP funciona como sencillo 
editor de lineas. Por ejemplo, el fichero PROFILE. ENG de la cara 1 se podria haber crea- 
do de la siguiente forma: 

(Inserte el disco del sistema, cara 1, en la unidad A:.) Escriba: 

PIP 

(Extraiga el disco del sistema e inserte el de destino.) Escriba: 

PROFILE.ENG=CON: 
SETKEYS KEYS.CCP 
[CONTROLIJ LANGUAGE 3 
[CONTROLIZ 

Configuracion de un programa de CP/M 

El CPC6128 maneja una amplia variedad de codigos de control, gracias a los cuales se 
lo puede adaptar a cualquier programa escrito para CP/M. La mayor parte de los progra- 
mas de proceso de datos, asi como muchos otros paquetes de aplicaciones, necesitan po- 
der escribir mensajes en determinados lugares de la pantalla, leer caracteres escritos en 
ella y entender los codigos de movimiento del cursor. 

Si su paquete de programas ya ha sido adaptado al ordenador Amstrad, no es necesario 
gue se preocupe por estas cuestiones. 
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Configuracion de la salida de un paquete 

La instalacidn de un paquete requiere normalmente la ejecuci6n de un programa especial 
(habitualmente Uamado INSTALL) el cual, si no menciona terminales del tipo Z19/Z29 
ni el CPC6128 especificamente, hara al usuario una serie de preguntas sobre las caracteris- 
ticas de la pantalla del 6128. Para introducir las respuestas necesitard consultar la tabla 
siguiente, que es un resumen de la parte 15 del capitulo 6. 



Codigos 
de control 



Hexadecimal Decimal Operaci6n 



[BEL] 




&07 


7 


[BS] 




&08 


8 


[LF] 




&0A 


10 


[CR] 




&0D 


13 


[ESC]A 


«&1B 


&41 


27 65 


[ESC]C 


&1B 


&43 


27 67 


[ESC]E 


&1B 


&45 


27 69 


[ESC]H 


&1B 


&48 


27 72 


[ESC]J 


&1B 


&4A 


27 74 


[ESC]K 


&1B 


&4B 


27 75 


[ESC]L 


&1B 


&4C 


27 76 


[ESC]M 


&1B 


&4D 


27 77 


[ESC]N 


&1B 


&4E 


27 78 


[ESC]Y 


&1B 


&59 


27 89 




c 


f 


cf 


[ESC]d 


&1B 


&64 


27 100 


[ESC]o 


&1B 


&6F 


27 111 


[ESC]p 


&1B 


&70 


27 112 


[ESC]q 


&1B 


&70 


27 113 



Producir un pitido 

Cursor a la izquierda una posicion 

Cursor abajo una linea 

Cursor al borde izquierdo de la ventana, en la 
linea actual 

Cursor arriba una linea 

Cursor a la derecha una posicion 

Borrar pantalla 

Cursor a su posicion inicial (extremo superior 
izquierdo de la ventana) 

Borrar desde la posicion actual del cursor in- 
clusive hasta el final de la pantalla 

Borrar desde la posicion actual del cursor in- 
clusive hasta el borde derecho de la pantalla 

Insertar linea 

Borrar linea 

Borrar el cardcter que esta en la posicion del 
cursor 

Llevar el cursor hasta la posicion especificada 
de la pantalla, donde c es el niimero de co- 
lumna mds 32 y f es el numero de fila mas 32 

Borrar desde el principio de la pantalla hasta 
la posici6n actual del cursor inclusive 

Borrar desde el borde izquierdo de la pantalla 
hasta la posici6n actual del cursor inclusive 

Activar video inverso (intercambio de colores 
de papel y pluma) 

Desactivar video inverso 
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Configuracion de la entrada a un paquete 

Los programas del paquete generalmente necesitaran captar datos a traves del teclado. 
Casi todas las teclas del CPC6128 generan valores estandar, a excepcion de las de movi- 
miento del cursor. Se puede utilizar SETKEYS para redefinir los codigos producidos por 
el teclado; sin embargo, es preferible adaptar cada programa para que acepte los codigos 
estandar. 

Lamentablemente, no hay ninguna norma general comiin a todos los programas en cuan- 
to a que teclas se deben pulsar para realizar las diversas funciones de control. Los caracte- 
res visibles, el 'espacio', [TAB] y [RETURN] estan bastante estandarizados; pero en cam- 
bio es notorio el desacuerdo en el 'retroceso del cursor', y mucho mas en las restantes fun- 
ciones. Comparese, por ejemplo, los codigos que significan 'cursor al principio de linea' 
en los siguientes casos: 

En CP/M: [CONTROUB 

En ciertos procesadores de texto: [CONTROL]Q S 

Con los discos del sistema se suministran tres juegos de definiciones del teclado (parte 2 
del capitulo 5). Por ejemplo, 

SETKEYS KEYS.CCP 

orden ya descrita como una de las que ejecuta automaticamente el programa PROFI- 
LE. SUB, adapta el teclado para la escritura de ordenes de CP/M. 



Ejecucion de un paquete Have en mano de 
CP/IVI 



Normalmente, basta con escribir el nombre del programa a la derecha del mensaje induc- 
tor A>. Por ejemplo, para poner en marcha un programa de nominas llamado NOMI- 
NAS.COM se escribiri'a, sencillamente, 

NOMINAS 

Si alguna configuracion requiere cierta preparacion, quiza incluya un fichero de tipo 
.SUB. 
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Arranque automatico de un paquete Have 
en mano en CP/M 

Se puede hacer que cada vez que se cargue el sistema operative CP/M Plus con el disco 
de arranque, el propio sistema ponga en marcha un programa concreto. La forma de con- 
seguirlo es poner el nombre del programa al final del fichero PROFILE.SUB que haya 
en ese disco. 
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Capi'tulo 5 

AMSDOS y CP/M (solo 6128) 



Parte 1: AMSDOS 



Temas tratados: 

* Introducci6n a AMSDOS 

* Directorio del disco 

* Cambio de discos 

* Nombres y tipos de ficheros 

* Cabeceras de fichero en AMSDOS 

* Nombres de fichero con dos unidades de disco 

* Sfmbolos comodin 

* Ejemplo de programa con 6rdenes de AMSDOS 

* Guia de referencia de las 6rdenes de AMSDOS 

* Manejo y copia de ficheros 

* Guia de referencia de los mensajes de error 



Introduccion 

AMSDOS amplia el BASIC suministrado con su ordenador al anadirle algunas 6rdenes 
externas, identificadas por el signo I que las precede. 

AMSDOS permite cambiar libremente los discos siempre que no haya ningiin fichero 
abierto. Si lo hay, emite un mensaje de error y se puede producir una perdida de datos 
si el fichero estaba abierto para escritura (en direccion de saUda). 
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Directorio del disco 



Todos los discos tienen dos secciones: el directorio y el drea de datos. El directorio contie- 
ne la lista de los nombres de los ficheros y un 'mapa' de la orgaiiizaci6n del area de datos. 
AMSDOS y CP/M pueden calcular el tamado de un fichero consultando su reseiia en el 
directorio. El calculo del espacio libre se realiza sumando las longitudes de todos los fiche- 
ros y restandolo de la capacidad total del disco. 

Cada vez que se va a leer de un fichero, se consulta su reseiia en el directorio para averi- 
guar su situaci6n en el disco. Cuando se crea un fichero nuevo, se le reseWa espacio en 
el disco. Cuando se borra un fichero, se Hbera el espacio por el ocupado. El directorio 
trabaja en unidades de IK y puede contener hasta 64 reseiias. Los ficheros largos necesitan 
una resena para cada 16K, si bien este hecho queda oculto y carece de importancia para 
el usuario. 



Cambio de discos 

AMSDOS (y CP/M Plus) permite el cambio o la extraccidn del disco en todo momento 
en que no se este accediendo a el, suponiendo que no haya ningiin fichero abierto en esa 
unidad. 

Si se extrae un disco cuando se esta escribiendo en el, se pueden perder los datos grabados 
en el disco. En cuanto AMSDOS detecta que se ha extraido un disco habiendo ficheros 
abiertos en el, se abandonan todos los ficheros y se emite un mensaje de error. Los datos 
pendientes de escribir en el tampon de salida se perderan, y no se grabard la ultima reseiia 
del directorio. No obstante, AMSDOS solamente detecta la extraccion del disco cuando 
consulta el directorio, lo que ocurre, con ficheros grjuides, una vez cada 16K (y siempre 
que abre o cierra un fichero). Asi, es posible perder 16K de datos si se extrae un disco 
antes de cerrar todos los ficheros abiertos en el. 



Nombres y tipos de ficheros en AMSDOS 

Es costumbre dar a los ficheros nombres que incluyan un distintivo del tipo de fichero 
de que se trata. Este convenio no obliga al ordenador a utilizar los ficheros de una forma 
determinada, si bien hay programas que solamente aceptan ficheros de un tipo determina- 
do. BASIC acepta ficheros de todo tipo, pero busca preferentemente ciertos tipos si no 
se le especifica otra cosa. (V6ase la seccion 'Cabeceras de fichero en AMSDOS'.) 
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Constmccion de los nombres de los 
ficheros 

El nombre del fichero consta de dos partes, separadas por un punto (.)• La primera parte 
consta de 8 caracteres como maximo; la segunda puede contener hasta 3 caracteres. Asi, 
por ejemplo, "ROINTIME.DEM", "DISCKIT.COM" y "DISC.BAS" son nombres co- 
rrectos de fichero. 

La segunda parte del nombre del fichero es el distintivo de tipo. Los nombres y los distin- 
tivos pueden consistir en una mezcla cualquiera de letras y niimeros, pero no pueden con- 
tener espacios ni signos de puntuaci6n. Algunos distintivos de tipo convencionales son los 
siguientes: 

.espacios Tipo no especificado. Puede ser un fichero creado por OPENOUT "fiche- 
ro", o bien un programa de BASIC grabado por AMSDOS con SAVE 
"fichero",A. 

.HAS Programa de BASIC grabado con SAVE "fichero", con SAVE "fichero".P 

o con SAVE"fichero".BAS",A. 

.BIN Programa o zona de memoria grabados por AMSDOS con SAVE "fichero",B, 

par^metros-b/narios . 

. B AK Este distintivo se asigna automaticamente a la version anterior de un fichero 

cuando AMSDOS o un programa de ayuda graban una version mas moderna 
con el mismo nombre. Esto permite que el usuario pueda utilizar o consultar 
la version emterior siempre que lo necesite. 

.COM Fichero de orden (programa directamente ejecutable). Los programas de ayu- 

da de CP/M son de este tipo. 

.SUB Fichero de instrucciones para el programa SUBMIT de CP/M. 



Cabeceras de fichero en AMSDOS 

AMSDOS asigna automaticamente a los ficheros, distintivos de tipo adecuados cuando 
los graba, por lo que normalmente no es necesario especificar distintivo. Los ficheros de 
BASIC ordinaries, los ficheros de BASIC protegidos y los ficheros binarios se graban con 
un registro de cabecera, de forma que en el proceso de lectura la orden de AMSDOS 

LOAD "fichero" 
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pueda reconocerlos y obrar en consecuencia. Si la orden LOAD no encuentra el registro 
de cabecera, supone que se trata de un fichero ASCII, es deck, de un fichero de texto. 

Independientemente del registro de cabecera, cuando se pide a AMSDOS que cargue un 
fichero sin especificarle el distintivo de tipo, empieza por buscarlo con el distintivo 

.espacios 
Si no lo encuentra, busca uno del tipo 

.BAS 
y, finalmente, del tipo 

.BIN 

Esto permite que el usuario se despreocupe del distintivo de tipo en la mayor parte de los 
casos. 

Un fichero de disco creado por OPENOUT y escrito por BASIC carecera de registro de 
cabecera; su contenido estari en ASCII (es decir, texto normal escrito con las ordenes 
WRITE, PRINT o LIST de BASIC). La orden OPENIN busca los ficheros en el mismo 
orden que LOAD si no se especifica distintivo de tipo. 

Nombres de fichero con dos unidades de 
disco 



En los sistemas de dos unidades de disco (esto es, en aquellos a los que se ha conectado 
la unidad externa), puede haber ficheros en las dos unidades. El ordenador no busca los 
ficheros automdticamente en las dos unidades, por lo que el usuario debe especificar que 
unidad se va a utilizar. Se puede utilizar las 6rdenes 1 A, I B o DRIVE (descritas mds ade- 
lante) para seleccionar una de las dos unidades; o bien, sin necesidad de modificar la uni- 
dad implicita, se puede especificar A: o B: como prefijo del nombre del fichero (los niime- 
ros de usuario permiten participar el directorio). Asi, por ejemplo, 

IB 

SAVE "PROG. BAS" 

lA 
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lA 

SAVE "B: PROG. BAS" 

graban el programa en la segunda unidad (B). 

Analogamente, se puede modificar tramitoriamente la asignacion implicita de USER 
('usuario', margen de a IS) poniendo el numero de usuario como prefijo del nombre 
del fichero. Asi, por ejemplo, 

LOAD "15:PR0G.BAS" 



SAVE "15: PROG. BAS" 

cargan y graban el programa de la seccidn del disco correspondiente al usuario numero 
15, cualquiera que sea la asignaci6n implicita de USER. (Vease m^ abajo la descripci6n 
de la orden I USER.) 

Finalmente, se pueden modificar transitoriamente las asignaciones implicitas de USER y 
DRIVE a un tiempo especificando ambos (y en este orden) como prefijo del nombre del 
fichero. Por ejemplo, 

RUN "15B:PROG.BAS" 



Simbolos comodin 



A veces se necesita realizar con el disco operaciones (catdlogo, copia, borrado, etc.) que 
afecten a varios ficheros. Cuando se especifica un nombre de fichero para una determina- 
da operacidn, el sistema busca en el directorio un nombre que coincida exactamente con 
el especificado. Algunas ordenes pueden actuar sobre un conjunto de ficheros indepen- 
dientemente de alguno de los caracteres de su nombre. En vez de especificar los caracteres 
'indiferentes', en su lugar se pone el signo de interrogaci6n ?. Si todo el bloque (o resto 
del bloque) del nombre del fichero o del distintivo de tipo es indiferente, el conjunto de 
signos de interrogaci6n se puede sustituir por un asterisco. Asi, por ejemplo, NOM.* es 
abreviatura de NOM.???, y F*.BAS es abreviatura de F???7???.BAS. 

La expresi6n *.* significa 'todos los ficheros'. 
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Ejemplos: 



Directorio 



Concuerdan con Concuerdan con Concuerdan con 
*.BAS N0M7.BAS N'.BA? 



BANCO. BAS BANCO. BAS 

N0M1.BAS N0M1.BAS 

N0M2.BAS N0M2.BAS 

NOMS.BAK 

N0M3.BAS N0M3.BAS 

NOMINA.BAS NOMINA.BAS 



N0M1.BAS 
N0M2.BAS 

N0M3.BAS 



N0M1.BAS 
N0M2.BAS 
NOMS.BAK 
N0M3.BAS 
NOMINA.BAS 



Ejemplos de utilizacion de ordenes de 
AMSDOS dentro de un programa 



Para mejor asimilar las ordenes de AMSDOS, le recomendamos que introduzca en el or- 
denador y estudie los programas siguientes. No ejecute nunca estos progreima con un dis- 
co maestro de CP/M instalado: los programas escriben datos en disco, y nunca se debe 
correr el riesgo de escribir sobre los discos maestros originales. Utilice una copia o un dis- 
co de trabajo. 

Grabacion de variables y volcado de pantalla 

El siguiente programa dibuja la bandera britanica y graba la pantalla completa en disco. 
Para ejecutarlo es necesario poner en la unidad un disco inicializado. 

10 fichero$="volcpant.srn" 

20 MODE 1:BORDER 

30 DIM color(2) 

40 FOR 1=0 TO 2 

50 READ color(l): REM lee coiores de llsta DATA 

60 INK i,coior(i) 

70 NEXT 

80 ON ERROR GOTO 430 

90 OPENIN "param.daf ' comprueba si existe fichero 
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100 CLOSEINiON ERROR GOTO 

110 IF numerror=32 AND DERR=146 THEN CLS 

120 CURSOR 1:PRINT"Quiere escribir sobre el fichero": 

PRINT'anterior? Y/N"; 
130 a$=INKEY$:ON INSTRC YN",UPPER$(a$)) GOTO 130,150,140:GOTO 130 
140 PRINT a$:PRINT"Fin del programa":END 
150 PRINT a$:CURSOR 
160 OPENOUT "param.dat" 

170 WRITE #9,f ichero$,1 : REM graba nombre de fichero y modo 
180 FOR 1=0 TO 2 

190 WRITE #9,coior(i): REM graba colores 
200 NEXT i 
210 CLOSEOUT 
220 CLS 

230 gp=1:GRAPHICS PEN gp:w=125 
240 x=-65:a=240:y=400:b=-150:GOSUB 400 
250 y=0:b=150:GOSUB 400 
260 x=575:a=-240:y=400:b=-150:GOSUB 400 
270 y=0:b=150:GOSUB 400 
280 gp=2:GRAPHICS PEN gp:w=40 
290 a=240:x=-40:y=400:b=-150:GOSUB 400 
300 x=0:y=0:b=150:GOSUB 400 
310 a=-240:x=640:y=0:b=150:GOSUB 400 
320 x=600:y=400:b=-150:GOSUB 400 
330 ORIGIN 0,0,256,380,0,400:CLG 1 
340 ORIGIN 0,0,0,640,150,250:CLG 1 
350 ORIGIN 0,0,280,352,0,400: CLG 2 
360 ORIGIN 0,0,0,640,168,230:CLG 2 
370 SAVE fichero$,b,&C000,&4000 
380 DATA 2,26,6 
390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,0:DRAWR -a,-b 
410 MOVE x+a/2+w/2,y+b/2:FILL gp 
420 RETURN 

430 numerror=ERR:RESUME NEXT 
run 

Fijese en los distintivos de tipo .DAT y .SRN. No tienen mas significado intrmseco que 
recordarnos cual es su contenido. El fichero PARAM.DAT sera un fichero ASCII sin re- 
gistro de cabecera, mientras que VOLCPANT.SRN es un fichero binario AMSDOS con 
cabecera. 
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Observe que el programa trata de leer el fichero PARAM.DAT, para averiguar si existe, 
antes de escribir en €1. Si no existe, BASIC genera un error, el cual es gestionado por el 
programa para que la ejecuci6n continue sin interrupcion. Si ya existe el fichero, no se 
genera error y el programa pregunta al usuario si desea escribir encima de 61. 

En este fichero se graba informaci6n sobre el modo de pantalla, los colores y el nombre 
del fichero que contiene el volcado de pantalla. La Unea 170 ilustra c6mo se puede utilizar 
un fichero de datos para escribir en el valores de variables (f lchero$) y constantes (1) que 
luego hayan de ser utilizados por otro programa. 

Carga de pantallas 

El siguiente ejemplo es un lector de volcados de pantalla que utiliza un fichero de pardme- 
tros para controlar su acci6n. Observe c6mo se leen los datos del fichero con INPUT y 
c6mo se utiliza EOF para adaptar la lectura automdticamente al tamaiio del fichero. Para 
que este programa visualice correctamente el volcado de pantalla, es necesario que la gra- 
bacidn se haya hecho en una posici6n de memoria conocida, pues en caso contrario la 
imagen quedari desplazada. Esto se garantiza grabando el volcado despues de ejecutar 
una orden MODE y teniendo cuidado de que durante la formacidn de la imagen no se 
desplace la pantalla. 

10 DIM color(15): REM preparacion para 16 colores 

20 OPENIN "param.daf 

30 INPUT #9,nombrefichero$,modopantalla 

40i=0 

50 WHILE NOT EOF 

60 INPUT #9,color(i) 

70 INK i.colord) 

80 1=1+1 

90 WEND 

100 CLOSEIN 

110 MODE modopantalla: BORDER 

120 LOAD nombrefichero$ 

run 
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Resumen de las ordenes extemas de 
AMSDOS 



lA 

Orden. Especifica que la unidad de disco implicita sea la A. Equivale a I DRIVE con para- 
metro A. (La unidad incorporada al ordenador es la A.) 

IB 

IB 

Orden. Especifica que la unidad de disco implicita sea la B. Equivale a I DRIVE con pard- 
metro B. (La unidad incorporada al ordenador es la A.) 

ICPM 

iCPM 

Orden. Carga un sistema operative de disco. El sistema operative suministrado con el or- 
denador es CP/M Plus. 

La ejecuci6n de esta orden no se puede completar si en la unidad no hay instalado un disco 
de sistema con CP/M. 

IDIR 

IDIR f^xpres/dn-l/tera/J 

IDIR/'+.BAS"" 

Orden. Escribe en la pantalla el directorio del disco (al estilo de CP/M) y el espacio libre. 
Si se omite el parametro, se supone * . * . 



AMSDOS y CP/M (s61o 6128) 5/9 



{DRIVE 

I DRIVE^xpres/6n-/itera/ 

I DRIVE/A" 

Orden. Establece que unidad de disco se debe considerar como implicita en lo sucesivo. 
Esta orden fallard si AMSDOS no consigue leer en la unidad especificada. 

iERA 

! ERA^xpresion-Ziteral 

IERA/'*.BAK" 

Orden. Borra todos los ficheros que concuerden con la expresi6n-//teral y no scan de solo 
lectura. Admite simbolos comodin. 

IREN 

IREN^xpresidn-//tera/^xpres/dn-//tera/ 

IREN;'FICHNUEV.BAS","FICHANTI.BAS" 

Orden. Da un nuevo nombre a un fichero ya existente en el disco. No puede haber otro 
fichero con el nombre nuevo. No admite simbolos comodin. 

Se puede incluir el pardmetro USER ('usuario', vease mas abajo) en laexpresi6n-//tera/ para 
modificJir transitoriamente la situaci6n implicita. Por ejemplo, I REN."0:IMUEVO.BAS", 
"15:ANTIGU0.BAS" da al fichero "ANTIGUO.BAS" de USER 15 el nuevo nombre 
"NUEVO. BAS" en USER 0, cualquiera que sea el parametro de I USER especificado con 
anterioridad. 

lUSER 

I USER^xpres/dn-entera 
IUSER.3 
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Orden. Determina con cual de las 16 secciones del directorio (dreas de usuario, del al 
15) deben actuar ciertas ordenes de manejo de disco (CAT, LOAD, I DIR, etc.)- 

Un fichero grabado en un 4rea de usuario puede ser transferido a otra con la orden I REN. 
Asi, IREN/'15^JEMPLO.BAS","0:EJEMPLO.BAS" transfiere el fichero del drea 15 
£il area sin cambiarle el nombre. 



Copia de ficheros de disco a disco 

Ficheros de AMSDOS con cabecera 

Los ficheros de este tipo se pueden copiar desde CP/M medieinte PIP (vease la parte 2 
de este capitulo). Los ficheros creados por AMSDOS con registro de cabecera (vdase mas 
arriba) pueden ser copiados en bloque (disco a disco), pero en general su contenido no 
puede ser entendido por los programas de CP/M. 

Ficheros ASCII 

Los ficheros creados por AMSDOS sin registro de cabecera estardn generalmente en AS- 
CII y son tanto copiables como entendibles por los programas de CP/M. En concreto, 
los ficheros de programa, de datos y de texto de ASCII son intercambiables entre AMS- 
DOS y CP/M. 

Ficheros de 'solo lecture' 

Desde CP/M es posible hacer que un fichero sea de solo lectura y/o invisible a efectos 
de catalogo del directorio. Estas caracteri'sticas solo se pueden establecer o anular desde 
CP/M, pero son respetadas por AMSDOS. Para mds detalles, vease la parte 2 de este ca- 
pitulo (programa de ayuda SET). 
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Guia de referenda de los mensajes de error 

Cuando AMSDOS no puede ejecutar una orden, emite un mensaje de erpor. Si el proble- 
ma es mecanico o radica en los circuitos, el mensaje de error va seguido de la pregunta: 

Retry, Ignore or Cancel? 

R (reintentar) hace que se repita la operacion, posiblemente despufe de que el usuario ha- 
ya remediado el problema. 

I (ignorar) hace que el ordenador continue como si nada hubiera ocurrido, lo que general- 
mente da lugar a efectos inesperados y posiblemente indeseados. 

C (cancelar) hace que se cancele la operaci6n, lo que frecuentemente conduce a un nuevo 
mensaje de error. 

Lista de errores 

Unknown command 

... la orden no ha sido tecleada correctamente. 
Bad command 

... la orden no puede ser ejecutada por algima raz6n; error de sintaxis o configuracibn 
inadecuada del sistema. 

nombre-de-fichero already exists 

... el usuario ha intentado dar a un fichero el nombre de un fichero ya existente. 

nombre-de-fichero not found 
... no existe ese fichero. 

Drive unidad: directory full 
... no queda espacio en el directorio para una nueva resefla. 
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Drive un/dad: disc full 
... no queda espacio en el disco para grabar nuevos datos. 

Drive un/dad: disc changed, closing nombre-de-fichero 
... se ha cambiado el disco antes de cerrar el fichero; el ordenador lo cierra. 

nombre-de-fichero is read only 

... el fichero no se puede modificar porque es de 's6Io lectura'. Los ficheros solamente 
se pueden caracterizar como de s61o lectura o de lectura/escritura desde CP/M. 

Drive un/dad: disc missing 

... no hay disco en la unidad, o el disco no estd girando correctamente. La acci6n aconse- 
jable es extraer el discr , insertarlo de nuevo y pulsar R. 

Drive un/dad: disc is write protected 

... se ha intentado escribir en un disco que tiene abierto el orificio de protecci6n. Si efec- 
tivamente quiere utilizar ese disco, extraigalo, cierre el orificio de proteccidn, ins6rtelo de 
nuevo y pulse R. 

Drive un/dad: read fail 

. . . error en los circuitos de lectura. La acci6n aconsejable es extraer el disco, insertarlo 
de nuevo y pulsar R. 

Drive un/dad: write fail 

. . . error en los circuitos de escritura. La accion aconsejable es extraer el disco, insertarlo 
de nuevo y pulsar R. 

Failed to load CP/M 

. . . error de lectura al intentar cargar CP/M con la orden I CPM, o bien no se ha inserta- 
do un disco de sistema de CP/M vdlido. Cuando se intenta cargar CP/M con un disco 
que tenga formato 'de datos' se genera el mensaje de error 'Read fail'. 
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Parte 2: CP/M 
CP/M Plus 

Temas tratados: 

* Introduccion a CP/M 

* Carga de CP/M Plus 

* Modo directo de consola 

* Programas de ayuda transitorios 

* Gesti6n de perifericos 

CP/M Plus es un sistema operative de disco. Es un programa especial que da acceso a 
la gran potencia del CPC6128. Aprovecha todos los 128K de RAM y deja libres mds de 
61K para los programas del usuario. CP/M permite el acceso aleatorio a los ficheros de 
datos; la implementaci6n en el CPC6128 incluye un sofisticado emulador de consola. 

EI hecho de que CP/M este disponible para tan gran variedad de ordenadores hace que 
se hayan escrito millares de paquetes de aplicacion, entre los que usted puede elegir los 
que mejor satisfagan sus necesidades. 

Introduccion 



El sistema operativo CP/M proporciona un medio de comunicaci6n entre el usuario y el 
sistema informatico, incluidas las unidades de disco y otros perifericos. Ofrece ordenes 
especiales (incorporadas en el sistema) y programas de ayuda (grabados en los discos) cu- 
yo objetivo fundamental es ayudarle en la tarea principal y mas frecuente: ejecutar los 
programas de las aplicaciones con sus propios datos. 

Desde luego, es posible adquirir gran experiencia en el manejo de CP/M y todos sus pro- 
gramas de ayuda. Tal experiencia puede ayudarle a sdir de algun apuro. Pero la realidad 
es que a la mayor parte de los usuarios les basta con saber como poner en marcha los pro- 
gramas. El resto de este capitulo estara dedicado a explicar las funciones y caracteristicas 
fundamentales de CP/M, procurando evitar que el exceso de detalles oscurezca lo esencial. 
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Del mismo modo que BASIC tiene su 'modo directo' o 'modo inmediato', caracterizado 
por el mensje inductor Ready, CP/M tiene un 'modo directo de consola', identificado 
por los mensajes A> o B>. El sistema dispone de ciertas 6rdenes incorporadas, pero la 
mayor parte del trabajo se realiza cargando y ejecut£mdo 'programas transitorios'. Se les 
llama 'transitorios' porque normalmente estan en el disco y s61o se los carga en la memo- 
ria cuando se los va a utilizar. 

El sistema genera, ademas de los mensajes de error estandar de CP/M, cierto numero de 
mensajes de error especificos de los circuitos, los cuales se distinguen por el hecho de que 
aparecen en la ultima b'nea de la pantalla en forma de "cinta sin fin". 



Situacion de CP/M Plus en el disco 



La mayor parte de CP/M Plus reside en un fichero especial con distintivo de tipo .EMS, 
grabado en la cara 1 del juego de discos del sistema. El ordenador carga CP/M a partir 
de este fichero siguiendo un proceso de dos etapas. 

En primer lugar, la orden I CPM de AMSDOS carga el primer sector de la pista numero 
0. En los discos con formato de sistema, este sector contiene un programa cuya unica mi- 
sion es cargjir el fichero .EMS. El resto de las pistas del sistema no se utiliza. 



Arranque en frio 



Durante el proceso de carga, cuando se activa CP/M por primera vez, el sistema busca 
en el disco el fichero PROFILE.SUB. Si lo encuentra, ejecuta automaticamente las ins- 
trucciones contenidas en el. Asi pues, incluyendo en el fichero PROFILE.SUB las instruc- 
ciones adecuadas, se puede automatizar la preparacion del teclado, la inici£ilizaci6n de la 
impresora e incluso la puesta en marcha de una aplicacion. En el capitulo 4 vimos como 
se cambia el nombre del fichero PROFILE (cara 1) para activarlo. 

Mientras esta funcionando el fichero PROFILE.SUB se crea en el disco un pequeflo fiche- 
ro transitorio; asi pues, el disco no puede estar protegido contra escritura. Esta es la razon 
por la que el fichero PROFILE del disco maestro no puede ser reconocible, esto es, no 
puede tener el distintivo .EMS. 
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Los ficheros PROFILE se pueden elaborar con un procesador de textos, con un editor de 
texto (tal como ED.COM) o incluso desde BASIC. El siguiente programa de BASIC po- 
dria haber sido utilizado para crear el fichero PROFILE.SUB: 

10 OPENOUT "PROFILE.SUB" 
20 PRINT #9/'SETKEYS KEYS.CCP' 
30 PRINT #9," LANGUAGE T 
40 CLOSEOUT 



Codigos de control de consola 



En CP/M se utilizan diversas teclas para controlsir la evolucidn de los programas. Estas 
funciones reemplazan la acci6n que ejercen las teclas de movimiento del cursor y [ESC] 
en BASIC. Los cddigos de control que relacionamos a continuacion se asignan a las co- 
rrespondientes teclas ejecutando la orden 

SETKEYS KEYS.CCP 

El programa transitorio SETKEYS.COM y el fichero KEYS.CCP se encuentran ambos 
en la cara 1 del juego de discos del sistema. 



C6digo de 
control 


Tecla 


[CONTROLIA 


B 


[CONTROUB 


[CONTROL] B 




... bien . . . 




[CONTROL] B 


[CONTROLjC 


[CONTROU [ESC] 


[CONTROLjE 


[CONTROL] [RETURN] 


[CONTROUF 


B 


[CONTROUG 


[CRL] 


[CONTROUH 


[<-BORR] 


[CONTROUI 


[TAB] 


[CONTROUJ 





Funci6n 



Mover el cursor una posici6n hacia la izquierda 
Llevar el cursor al principio de la li'nea; si ya estd en 
esa posici6n, lo lleva al final de la Unea 

Abandonar el programa 

Retomo fisico del carro 

Mover el cursor una posici6n hacia la derecha 

Borrar el cardcter que esXi. en la posici6n actual del 

cursor 
Borrar el cardcter que esta a la izquierda del cursor 

y mover 6ste una posici6n a la izquierda 
Llevar el cursor al siguiente tope de tabulaci6n 
Introducir linea de orden 
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C6digo de 
control 



Tecla 



Fund6n 



[CONTROLIK 
[CONTROLIM 

[CONTROUP 



[CONTROUQ 
[CONTROUR 
[CONTROUS 

[CONTROLIU 

[CONTROLIW 

[CONTROLIX 

[CONTROUZ 



[CONTROL] [CLR] 
[RETURN] 

. . . o bien . . . 
[INTRO] 



[CONTROU [INTRO] 
[ESC] 



[COPIA] 
[CONTROL] [♦ 



BORR] 



Borrar hasta el Hnal de la linea 
Introducir linea de orden 



Bdscula de la impresora. Activa y desactiva el envi'o 

a la impresora de toda la informaci6n que aparece 

en la pantalla 

Reanudar el envio de informaci6n a la pantalla 

Repetir la linea de orden actual 

Detener el envio a la pantalla de la informacion ge- 

nerada por CP/M. Se reanuda con [CONTROL]Q 

Ignorar la Unea actual 

Repetir la ultima orden tecleada 

Borrar desde el principio de la Unea hasta la posi- 

ci6n actual del cursor 

Fin del texto 



Nombres de ficheros 



Muclias de las ordenes de CP/M llevan como parametros nombres de ficlieros. En ciertos 
casos se permite la inclusi6n de simbolos comodin (v6ase la seccion 'Simbolos comodin' 
en la parte 1 de este capitulo). El sistema convierte a mayusculas todos los nombres de 
fichero. 

Las 6rdenes directas de consola y la mayor parte de los programas de ayuda no requieren 
que se escriban los nombres de ficlieros entre comillas. 

Los nombres de los ficheros pueden incluir los prefijos A: o B: para obligar a CP/M a 
utilizar la unidad especificada. 

Una orden tipica de CP/M es, por ejemplo, 

TYPE KEYS.CCP 

donde TYPE es el nombre de la funcion ('visualizar en la pantalla') y KEYS.CCP es el 
nombre del fichero cuyo contenido queremos ver. 
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Cambio de la unidad de disco implicita 

Si se tiene conectada la segunda unidad de disco, se puede especificar cual de las dos debe 
ser considerada como implicita. Para ello se escribe A: o B: en respuesta a los mensajes 
inductores B> o A>, respectivamente. El propio mensaje inductor indica en todo mo- 
mento cual es la unidad implicita. La inclusion de A: o B: como prefijos en los nombres 
de los ficheros obliga a utilizar la unidad especificada en una operacion concreta, pero 
no modifica la unidad implicita. 



Ordenes directas de consola 



Hay varias ordenes directas de consola que se pueden teclear en respuesta a los mensajes 
A> o B>. Estas ordenes pueden ser abreviadas. Las versiones simplificadas que vamos 
a estudiar si estdn incorporadas en el sitema operativo, pero existen, con el mismo nom- 
bre, programas transitorios mds complejos. 

DIR 

Escribe en la pantalla la lista del contenido del directorio. Los nombres de los ficheros 
no estdn ordenados segiin ningiin criterio, sino en el orden en que estan sus resenas en 
el directorio. DIR admite simbolos comodin; no lista los ficheros que tengan el atributo 
'SYS'. 

DIR lista todos los ficheros de la unidad implicita 

DIR B: lista todos los ficheros de la unidad B: 

DIR *.BAS lista todos los ficheros del tipo .BAS 

DIR B:*.BAS lista todos los focheros del tipo .BAS de la unidad B: 

DIR PIP.COM lista solamente el fichero PIP.COM (si existe) 

DIRSYS y DIRS 

Estas ordenes escriben la lista de los ficheros del disco que tienen el atributo 'SYS'. Por 
lo demas funcionan igual que DIR. Mas adelante describiremos el atributo SYS. 
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ERASE o ERA 

Borra resenas del directorio. S61o se borra la resena, de modo que los datos siguen estan- 
do en el disco hasta que se graben otros en su lugar; no obstante, la informacion es irrecu- 
perable. ERA admite simbolos comodin; si se incluyen estos simbolos en el nombre de 
fichero, ERA pide que se le confirme que debe borrar todos los ficheros concordantes. 
ERA no lista los nombres de los ficheros que va borrando. Si alguno de los ficheros que 
se le ha pedido que borre es de 'solo lectura', la orden queda interrumpida. El atributo 
de 'solo lectura' sera descrito mas adelante. 

ERA PIP.COM borra el fichero PIP.COM 

ERA B:PIP.COM borra el fichero PIP.COM de la unidad B: 

ERA *.BAS borra todos los ficheros de tipo .BAS 



RENAME o REN 

Cambia el nombre de un fichero ya existente. El primer nombre de fichero que se especifi- 
ca es el nuevo, seguido del signo = y del nombre antiguo. Si ya hay en el disco un fichero 
con el nombre nuevo, se emite un mensaje de error. Como orden incorporada si sistema, 
REN no admite simbolos comodin en los nombres de los ficheros; si lo hace, en cambio, 
el programa transitorio RENAME.COM. 

REN FICHNUEV.BAS=FiCHANTI.BAS da al fichero FICHANTI.BAS el nuevo 

nombre FICHNfUEV.BAS 

REN B:FICHNUEV.BAS=FICHANTI.BAS da al fichero FICHANTI.BAS el nuevo 

nombre FICHNUEV.BAS en la unidad 
B: 



TYPE o TYP 

Envi'a a la pantalla el contenido del fichero especificado. Si el fichero no es un fichero 
ASCII de texto, se produciran efectos imprevisibles, quizd indeseables. 

TYPE KEYS.CCP 

exhibe el listado del programa KEYS.CCP. 
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USER o USE 

El 'niimero de usuario' es un metodo de partici6n del directorio mediante el cual se limita 
el acceso de distintos usuarios a sus correspondientes ficheros. Normalmente un fichero 
solo es accesible si estd identificado con el niimero actual de usuario. 

Los ficheros que hayan sido grabados en 'usuario 0' y tengan el atributo 'SYS' son accesi- 
bles desde todos los numeros de usuario; de esta forma, los programas de asoida y de apli- 
caci6n estdn al servicio de todos los usuarios sin necesidad de que cada uno tenga una co- 
pia en su propia drea. 

La orden USER cambia el mimero actual de usuario. Por ejemplo, 

USERS 
hace que el mimero de usuario sea el 3. 



Ordenes transitorias 



Para realizar una gestidn de ficheros mas elaborada que la que permite el modo directo 
de consola es necesario recurrir a los diver sos programas de ayuda disponibles. Estos pro- 
gramas se ejecutan sin mds que escribir su nombre, en ocasiones seguido de algiin nombre 
de fichero o de algiin parametro. El lector seguramente conocerA una de estas 6rdenes 
transitorias: DISCKIT. 

Las ordenes transitorias se dividen en los grupos indicados mds abajo. 

Las ordenes transitorias DISCKIT, SETKEYS, SETLST, SETSIO, PALETTE LAN- 
GUAGE y AMSDOS, asi como los controladores de pantalla para GSX y la instalacidn 
de LOGOS, han sido disenadas por Amstrad y funcionan soljunente en este sistema. No 
son trasladables a ningiin otro CP/M. En una misma llnea se pueden incluir varias orde- 
nes separ^dolas con el signo de exclamaci6n (!): 

LANGUAGE SfSETKEYS KEYS.WP 
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Gestion de perifericos 



DISCKIT es un programa complete para inicializar, copiar y comprobar discos. Es mas 
rapido inicializar mientras se copia que inicializar primero y luego copiar. El programa 
ofrece meniies que indican que tecla (normalmente del teclado numerico) se debe pulsar 
para realizar cada funcidn. El formato 'comerdal' (vendor) es im tipo especial de formato 
de sistema diseftado para la distribuci6n comercial de programas. No obstante, los discos 
con formato 'de datos' pueden ser mis adecuados para ese fin. 



AVISO 

El acuerdo de licencia para su CP/M (que estd codificado electronicamente con un 
numero de serie) permite su utilizacion en un solo ordenador. Esto significa, en parti- 
cular, que esta prohibido dar a otras personas una copia de su disco (la cual seria 
identificable por el numero de serie). Puesto que todas las copias de la cara 1 Uevan 
grabado su CP/M (en el fichero .EMS), tenga buen cuidado de no vender, intercam- 
biar o de ninguna otra forma de enajenar discos con ese fichero en eUos. 



LANGUAGE 



El CPC6128 tiene un juego de caracteres internacionales bastante completo. La orden 
LANGUAGE intercambia determinados grupos de caracteres para que los programas de 
aplicacion puedan visualizar caracteres especiales y acentuados. En la parte 16 del capitu- 
lo titulado 'Para su referenda . . . ' daremos mas amplia informacion sobre este tema. 

La orden 

LANGUAGE 3 

adapta el ordenador para que escriba el juego de caracteres britdnico, cuya diferencia con 
el estandar (EE.UU.) esta en el intercambio de los signos £ y #. 
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Colores 



Los colores iniciales de CP/M Plus en el 6128 (con monitor de color) son el bianco intenso 
para los caracteres y el azul para el fondo. Pero estos colores se pueden modificar con 
la orden PALETTE, la cual va seguida de varies parametros, uno para cada tinta. La tinta 
es la del borde y el fondo; la tinta 1 es la de los caracteres. Cada color esta descrito por 
un niimero (margen de a 63) que caracteriza al mismo tiempo la intensidad perceptible 
en un monitor monocromatico. 

Se puede especificar desde una hasta 16 tintas, pero solo las dos primeras seran visibles 
en la pantalla de 80 columnas. 

La orden 

^ALETTE 63.1 

in\iierte la situacion normal de las tintas y 1, pues da caracteres azules (1) sobre fondo 
bianco intenso (63). 

Utilice la tabla siguiente para elegir los colores (o las intensidades) que desee. Los numeros 
se pueden especificar en decimal o en hexadecimal. 



Color 


Hex 


Dec 


Color 


Hex 


Dec 


Negro 


&00 





Azul pastel 


&2B 


43 


Azul 


&02 


2 


Naranja 


&2C 


44 


Azul intenso 


&03 


3 


Rosa 


&2E 


46 


Rojo 


&08 


8 


Magenta pastel 


&2F 


47 


Magenta 


&0A 


10 


Verde intenso 


&30 


48 


Malva 


&0B 


11 


Verde mar 


&32 


50 


Rojo intenso 


&0C 


12 


Cyan intenso 


&33 


51 


Morado 


&0E 


14 


Verde lima 


&38 


56 


Magenta intenso 


&0F 


15 


Verde pastel 


&3A 


58 


Verde 


&20 


32 


Cyan pastel 


&3B 


59 


Cyan 


&22 


34 


Amarillo intenso 


&3C 


60 


Azul celeste 


&23 


35 


Amarillo pastel 


&3E 


62 


Amarillo 


&28 


40 


Blanco intenso 


&3F 


63 


Blanco 


&2A 


42 
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El teclado 

Los codigos generados por el teclado pueden ser modificados mediante la orden SET- 
KEYS. Esta orden permite asignar los valores deseados a las teclas o a los codigos expansi- 
bles. La lista de c6digos debe encontrarse en un fichero, cuyo nombre se incluye luego 
como pardmetro de SETKEYS. El fichero puede haber sido creado con ED, con PIP o 
incluso desde BASIC. Por ejemplo, una orden tipica es 

SETKEYS KEYS.TST 

donde el fichero KEYS.TST contiene 

E &8C "DIR tM" c6digo expansible niimero 12 

8 N S C "TH" retroceso del cursor = [CONTROL]H, ASCII 08 

que primero redefine el c6digo expansible generado por [CONTROL] [INTRO] (represen- 
tado por &8C) para asignarle la cadena DIR[RETURN], y luego la tecla de 'cursor a la 
izquierda'CH. tecla numero 8) para que genere un retroceso del cursor. 

Los ficheros KEYS estandar suministrados con el ordenador 6128 son: KEYS.CCP para 
la edicion de ordenes de CP/M y KEYS.WP, adecuado para muchos procesadores de 
texto. 

Impresoras 

La inicializacion de impresoras se puede realizar con la orden 

SETLST fichero 

donde fichero contiene la cadena de c6digos que se debe enviar a la impresora. Al igual 
que en los ficheros de SETKEYS, los codigos de control se pueden representar por: 

caracter 
o por 

'valor-del-caracter' 
o bien por 

'nombre-del-c6digo-de-control' 
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donde los nombres-del-c6digo-de-control son ESC, FF, etc., o sea, los que se muestran 
en la tabla de caracteres ASCII del capitulo titulado 'Para su referenda . . .'. 

Un c6digo de inicializaci6n de impresoras muy frecuente es el 15 (decimal), que establece 
el modo de escritura estrechada. 

En BASIC la orden seria 

PRINT #8,CHR$(15) 
En CP/M, 

SETLST ESTRECHA 

donde el fichero ESTRECHA debe contener cualquiera de las siguientes h'neas: 

'SI' 
O 

'&F' 
'15' 

todas las cuales representan el c6digo 15 (decimal). 

Algunos programas de aplicaci6n trabajan con la pantaOa de 24x80. La orden 

SET24X80 

o bien 

SET24X80 ON 
seleciona el modo 24x80. La orden 

SET24X80 OFF 

lo anula. 

La pantalla normal en el 6128 es 24x80, con la ultima linea reservada para los mensajes 
de estado. La desactivaci6n del modo 24x80 solo serd apreciable si tambien se deactiva 
la linea de estado. En la parte 15 del capitulo 6 se explica c6mo activar y desactivar la 
linea de estado. 
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Interfaz serie 

CP/M puede controlar un interfaz serie monocanal de entrada/salida (RS232). Sus carac- 
teristicas fundamentales se pueden consultar ejecutando la orden SETSIO sin pardmetros: 

SETsro 

Se las puede modificar con esta misma orden incluyendo los siguientes pardmetros (o al- 
gunos de ellos): 

SETSIO, RX 1200. TX 75, PARITY NONE, STOP 1, BITS 8, 
HANDSHAKE ON, XOFF OFF 

con lo que quedan'a establecida una nueva configuracidn. 

Las caracteristicas de velocidad de transmisi6n (RX) y de estado XON/XOFF puede.. re- 
sultar afectadas por una de las acciones posibles de la orden DEVICE. Esta orden controla 
los dispositivos logicos y fisicos. Los dispositivos 16gicos llevan como sufijo el signo de 
dos puntos (:). Para examinar los atributos actuales de los dispositivos se ejecuta la orden 

DEVICE 

Los atributos se pueden modificar con 6rdenes tales como las siguientes: 

DEVICE SIO[1200] establece la velocidad de 1200 bits por segundo para 

el interfaz serie 
DEVICE SIO[XON] activa el protocol© XON/XOFF 

DEVICE SIO[NOXON] desactiva el protocolo XON/XOFF 

La correspondenda entre dispositivos 16gicos y fisicos tambien es modificable. Normal- 
mente CON: es CRT (la consola, o sea, el teclado y la pantalla), AUX: es SIO (el interfaz 
serie opcional) y LST es LPT (el interfaz paralelo Centronics). La orden 

DEVICE LST:=SIO 

enviard al interfaz serie (si esta conectado) la salida que normalmente iria a la impresora. 

Observe que esto es una reasignaci6n de canales, que no se debe confundir con las funcio- 
nes de copia de ficheros realizadas por PIP. Las 6rdenes GETfichero y PUTf/chero rediri- 
gen las entradas y salidas de la consola y la salida hacia la impresora para hacerles utilizar 
ficheros en lugar de controladores de dispositivo. 
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PIP 



El programa de ayuda PIP {Peripheral Interchange Program, "programa de intercambio 
entre perifericos") realiza el intercambio de informacidn entre el ordenador y sus perife- 
ricos. 

La forma general de la orden es 

PIP destino=fuente 

La fuente y el destine pueden ser, o bien un dispositivo 16gico, o bien nombres de fiche- 
ros; en este ultimo caso se permiten simbolos comodin en la fuente. Los dispositivos logi- 
cos utilizables son los siguientes: 



Como fuente 

CON: entrada por consola 

AUX: entrada auxiliar 

EOF: indicador de fin de fichero 



Como destine 

CON: salida por consola 

AUX: salida auxiliar 

LST: impresora 

PRN: impresora con gestion de tabu- 

ladores, mimeros de linea y 

salto entre paginas 



Ejemplos de utilizacion de PIP: 

PIP B:=A:*.COM 
copia todos los ficheros *.COM de la unidad A: a la B:. 

PIP TECLADO.CPM=KEYS.CCP 
hace una copia del fichero KEYS.CCP y le da el nombre de TECLADO.CPM. 

PIP CON:=KEYS.CCP 
envia el fichero KEYS.CCP a la pantalla (efecto similar al de TYPE KEYS.CCP). 

PIP LST: = KEYS.CCP 
envia el fichero KEYS.CCP a la impresora. 
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PIP ENTRADA.TXT=CON: 

capta caracteres por el teclado y los envia a un fichero llamado ENTRADA.TXT. 

Observe que, en este ultimo ejemplo, el proceso se concluye con el codigo de control 
[CONTROLIZ y que para pasar a la linea siguiente hay que pulsar siempre [CONTROLU 
despues de [RETURN]. [CONTROLU es el c6digo ASCII del avance de linea. 

Cuando se escribe PIP sin pardmetros, emite el mensaje inductor *, a continuaci6n del 
cual se puede introducir las ordenes deseadas. Esta forma de funcionamiento es muy litil 
en el trabajo de copia de ficheros cuando no se tiene grabado el fichero PIP.COM en el 
disco fuente ni en el disco destino. El procedimiento consiste, pues, en cargar PIP con 
la cara 1 del juego de discos del sistema, extraer este disco y luego insertar los que hayan 
de intervenir en el proceso de copia. 
Para abandonar PIP basta con pulsar [RETURN] en respuesta al mensaje inductor *. 

Observe que PIP tambien puede copiar ficheros de un disco a otro en sistemas de una sola 
unidad; el programa avisa cuando se debe cambiar el disco. Los indicadores de unidad 
de los ficheros fuente y destino deben ser diferentes. 



Gestion del sistema 

DIR, ERASE, RENAME y TYPE existen tambien como programas transitorios; en esta 
version son mas potentes que las correspondientes ordenes intrinsecas al sistema. Al igual 
que ocurre con otros programas transitorios suministrados por Digital Research, los para- 
metros secundarios se especifican entre corchetes. Veamos algunos ejemplos: 

DIR [FULL] muestra todos los nombres de los ficheros, 

con sus tamaflos y atributos 

ERASE *.COM [CONFIRM] pide confirmacion individual para cada fi- 

chero que encuentra, antes de borrarlo 

RENAME pregunta los nombres antiguo y nuevo del 

fichero 

RENAME *.SAV=*.BAK cambia todos los distintivos de tipo de .BAK 

a .SAV 

TYPE KEYS.WP [NOPAGE] inhibe la paginaci6n en la pantalla 
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Ya hemos mencionado antes los atributos de SYS (sistema) y RO (solo lectura). Estos y 
muchos atributos pueden ser asignados mediante la orden SET, la cual acepta simbolos 
comodin. 

Las 6rdenes 

SET *.COM [RO] 
SET KEYS.CCP [RO 
SET A: [RO] 

asignan a los ficheros o a una unidad de disco el atributo RO (para prevenir el borrado 
accidental). 

Las 6rdenes 

SET *.COM [RW] 
SET KEYS.CCP [RW] 
SET A: [RW] 

devuelven a los ficheros o a la unidad de disco el atributo de 'lectura/escritura'. 
Las 6rdenes 

SET *.COM [SYS] 
SET KEYS.CCP [SYS] 

dan a los ficheros el atributo de 'sistema'. Los ficheros que tienen este atributo no apare- 
cen en los listados generados por DIR (pero si en los de DIRS y DIRSYS). No obstante, 
esos ficheros estin disponibles a todos los demds efectos; e incluso, si estin en el area de 
usuario niimero 0, estdn disponibles para todos los niimeros de area de usuario. 

Las drdenes 

SET *.COM [DIR] 
SET KEYS.CCP [DIR] 

anulan el atributo de 'sistema'. 

A cada disco se le puede asignar una etiqueta o nombre (NAME) y tambien una clave 
(PASSWORD). La clave protege el directorio, no los ficheros. Tambien se puede asignar 
claves a ficheros individuales. 
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Las ordenes 

SET [NAME=JAVIER] 

SET [PASSWORD=SESAMO] 

SET [PROTECT=ON] 

actuan sobre el disco que estd en la unidad implicita. 
Las ordenes 

SET *.*[PASSWORD=:SESAMO] 
SET *.*[PROTECT=READ] 

actuan sobre ficheros de ese disco (*.* significa 'todos los ficheros'). 

La estampaci6n de fecha y hora se puede activar con INITDIR (cara 2 del juego de discos 
del sistema). Las ordenes 

INITDIR 

SET [CREATE=ON] . . . o . . . SET [ACCESS=ON] . . . y . . . 

SET [UPDATE=ON] . . . junto con . . . 

DIR [FULL] 

inician y visualizan la estampaci6n de fecha y hora del disco de la unidad implicita. La 
orden 

DATE SET 

serd necesaria cada vez que se cargue CP/M Plus para comunicarle la fecha y la hora. 
Una vez puesto en hora, el reloj la actualiza con precision razonable. Para consultarla se 
utiliza la orden 

DATE . . . y . . . 
DATE CONTINUOUS 



ADVERTENCIA 

Cuando a im disco se le asigna nombre o clave, o se le estampa fecha y hora, en ese 
disco ya no debe escribir AMSDOS, pues este sistema no estd dotado de tales 
funciones. 
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Normalmente el sistema s61o accede a los ficheros del disco que esta en la unidad implici- 
ta, salvo que se especifique otra unidad. Sin embargo, la orden 

SETDEF *,A: 

(donde * representa la unidad implicita) instruye a CP/M para que en lo sucesivo, cuando 
este buscando ficheros, lo haga primero en la unidad implicita y luego en la A:. Dicho 
de otra forma, si la unidad implicita es la B:, el fichero sera encontrado si esta en alguna 
de las dos unidades. 

Las ordenes 

SETDEF [PAGE] . . . y . . . 
SETDEF [NOPAGE] 

activan y desactivan la paginaci6n en la pantalla (esto es, la pausa que el sistema hace 
automaticamente, en espera de que el usuario pulse una tecla, cuando la informacion emi- 
tida por la consola Uena la pantalla). 

Recuerde que la mayor parte de las funciones realizadas por DEVICES, SET y SETDEF, 
en particular cuando afectan a las unidades de disco (en lugar de a ficheros o discos con- 
cretos), han de ser inicializadas, junto con la fecha, cada vez que se carga CP/M Plus. 
Esta tarea se presta perfectamente a ser programada en un fichero PROFILE. SUB 
adecuado. 

SUBMIT ejecuta grupos de drdenes individuales automaticamente. Las ordenes tienen 
que estar en un fichero de texto cuyo distintivo de tipo sea .SUB. Cada linea representa 
una orden; una li'nea puede ser la entrada a un programa si empieza con el signo <. 

Con las diferentes versiones de SHOW se puede obtener informacion sobre el tamaiio de 
un disco, el espacio libre, el mimero de reseiias Ubres en el directorio, ficheros que hay 
en las distintas areas de usuario, el nombre del disco, las CEiracten'sticas de la unidad, etc.: 

SHOW B: 
SHOW B:[LABEL] 
SHOW B:[USERS] 
SHOW B:[DIR] 
SHOW B:[DRIVE] 
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Salida de CP/M 



La orden 
AMSDOS 

retira el control de CP/M y lo cede al BASIC de AMSTRAD, a traves del cual se accede 
a las 6rdenes del sistema operative de disco AMSDOS. 
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Capitulo 6 

Para su referencia . 



Este capitulo contiene la mayor parte de la informacion que usted pueda 
necesitar para aprender a manejar el ordenador. 

Temas tratados: 

* Posiciones del cursor y c6digos de control 

* Interrupciones 

* Caracteres ASCII y caracteres graficos 

* Esquemas del teclado 

* Sonidos 

* Mensajes de error 

* Palabras de error 

* Palabras reservadas de BASIC 

* Plantillas 

* Conexiones 

* Impresoras 

* Joysticks 

* Organizacion de los discos 

* Ampliaciones del sistema residentes (RSX) 

* Memoria 

* Emulador de consola de CP/M Plus 

* Juego de caracteres de CP/M Plus 
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Parte 1: Posiciones del cursor y codigos 
ampliados de control en BASIC 



En ciertas aplicaciones el cursor puede encontrarse fuera de la ventana de texto. Algunas 
operaciones fuerzan al cursor a ocupar una posici6n permitida antes de poder ser Uevadas 
a cabo. Son las siguientes: 

1. Escribir un caracter. 

2. Exhibir el signo del cursor (el rectangulo). 

3. Obedecer los codigos de control senalados con un asterisco en la tabla siguiente. 
El proceso de forzar el cursor a ocupar una posicion permitida consiste en lo siguiente: 

1 . Si el cursor esta a la derecha del borde derecho de la ventana, salta al extremo izquier- 
do de la linea siguiente. 

2. Si el cursor esta a la izquierda del borde izquierdo de la ventana, salta al extremo dere- 
cho de la linea anterior. 

3. Si el cursor esta por encima del borde superior, el contenido de la ventana se desplaza 
una linea hacia abajo y el cursor aparece en la primera linea. 

4. Si el cursor esta por debajo del borde inferior, el contenido de la ventana se desplaza 
una linea hacia arriba y el cursor aparece en la ultima linea. 

Las comprobaciones y operaciones se realizan en el orden de la lista anterior. Las posicio- 
nes ilegales del cursor pueden ser cero o negativas, es decir, a la izquierda y por encima 
de la ventana. 

Los codigos del margen a 31 no producen ningiin simbolo cuando se los envia a la panta- 
11a, sino que son interpretados como codigos de control (y deben ser utilizados con cuida- 
do). Algunos de ellos alteran el significado de uno o varios de los codigos siguientes, que 
hacen las funciones de parametros del c6digo original. 

Si se envia un c6digo de control a la pantalla grafica, su efecto es dibujar un simbolo rela- 
cionado con la funcion que tendria si se lo generase mediante el teclado (v. g., &07'BEL': 
[CONTROUG). Ejercera su funcion de control si se lo envia a la pantalla mediante: 

PRINT CHR$(&07) o bien PRINT " ft " 

donde el simbolo del "timbre" se obtiene pulsando [CONTROLIG en el momento de te- 
clear la instruccion PRINT. 

Los codigos sefialados con * en la lista siguiente fuerzan al cursor a ocupar una posicion 
permitida en la ventana antes de ser obedecidos. Para cada c6digo se da el mimero, en 
hexadecimal y en decimal, y la descripci6n de su funcion. 
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Codigos de control en BASIC 



Valor 


Nombre 


Parametro 


Significado 


&00 


NfUL 




Sin efecto. Se lo ignora. 


&01 1 


SOH 


Oa255 


Escribe el simbolo correspondiente al va- 
lor del parametro, lo que permite exhibir 
los simbolos del al 31. 


&02 2 


STX 




Hace invisible el cursor de texto. Equivale 
a la orden CURSOR con el parametro 
conmutador-de-usuario igual a 0. 


&03 3 


ETX 




Hace visible el cursor de texto. Equivale a 
la orden CURSOR con el parametro 
conmutador-de-usuario igual a 1. Notese 
que para visualizar el cursor desde dentro 
de un programa de BASIC (aparte de la si- 
tuacion en que BASIC esta esperando una 
entrada por el teclado) es necesario ejecu- 
tar una orden CURSOR con el parametro 
conmutador-del-sistema igual a 1. 


&04 4 


EOT 


0a2 


Establece el modo de pjmtalla. El parame- 
tro se toma MOD 4. Equivale a la orden 
MODE. 


&05 5 


ENQ 


Oa255 


Envia a la posicion del cursor grafico el ca- 
racter correspondiente al valor del para- 
metro. 


&06 6 


ACK 




Habilita la pantalla de texto. (Vease &15 
NAK.) 


&07 7 


BEL 




Produce un pitido. Observese que este c6- 
digo borra las colas de sonido. 


&08 8 


*BS 




Hace retroceder el cursor una posici6n. 
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Valor 


Nombre 


Par^metro 


Significado 


&09 9 


*TAB 




Hace avanzar el cursor una posicion. 


&0A 10 


*LF 




Hace bajar el cursor una linea. 


&0B 11 


*VT 




Hace subir el cursor una li'nea. 


&0C 12 


FF 




Borra la ventana de texto y Ueva el cursor 
al extremo superior izquierdo. Equivale a 
la orden CLS. 


«&0D 13 


*CR 




Lleva el cursor al extremo izquierdo de la 
linea actual. 


&0E 14 


SO 


Oa 15 


Establece la tinta asignada al papel. El pa- 
rametro se toma MOD 16. Equivale a la 
orden PAPER. 


&0F 15 


SI 


Oa 15 


Establece la tinta asignada a la pluma. EI 
parametro se toma MOD 16. Equivale a la 
orden PEN. 


&10 16 


*DLE 




Borra el caracter que esta en la posicion 
del cursor. Rellena la celula del car4cter 
con el color actual del papel. 


&11 17 


*DC1 




Borra desde el extremo izquierdo de la 
ventana hasta la posici6n actual del cursor 
inclusive. Rellena las celulas afectadas con 
el color actual del papel. 


&12 18 


*DC2 




Borra desde la posici6n actual del cursor 
inclusive hasta el extremo derecho de la 
ventana. Rellena las celulas afectadas con 
el color actual del papel. 
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Valor 


Nombre 


Parametro 


Significado 


&13 19 


*DC3 




Bona desde el principio de la ventana has- 
ta la posicion actual del cursor inclusive. 
Rellena las celulas afectadas con el color 
actual del papel. 


&14 20 


*DC4 




Borra desde la posicion actual del cursor 
inclusive hasta el final de la ventana. Relle- 
na las celulas afectadas con el color actual 
del papel. 


&15 21 


NAK 




Inhibe la pantalla de texto, la cual no reac- 
ciona ante nada que se le envia mientras no 
reciba el c6digo ACK (&06 6) 


&16 22 


SYN 


Oa 1 


Se toma el parametro MOD 2. Opci6n de 
transparencia: desactiva, 1 activa. 


&17 23 


ETB 


Oa3 


Se toma el parametro MOD 4. Establece el 
modo de tinta para graflcos: 

normal 

1 XOR 

2 AND 

3 OR 


&18 24 


CAN 




Intercambia las tintas de pluma y papel. 


&19 25 


EM 


0a255 
Oa255 
Oa255 
Oa255 
Oa255 
Oa255 
0a255 
0a255 
0a255 


Define la matriz de un caracter definible 
por el usuario. Equivale a la orden SYM- 
BOL. Lleva nueve parametros. El primero 
es el niimero del caracter; los ocho restan- 
tes, el diseflo del cardcter. El bit mis signi- 
ficative del primer byte corresponde al 
punto extremo superior izquierdo del ca- 
racter. El bit menos significativo del ulti- 
mo byte corresponde al punto extremo in- 
ferior derecho del caracter. 
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Valor 


Nombre 


Par^metro 


Significado 


&16 26 


SUB 


1 a 80 
la 80 
la 25 
la 25 


Define una ventana. Equivale a la orden 
WINDOW. Los dos primeros parametros 
especifican los hordes izquierdo y derecho 
de la ventana; el menor de ellos se conside- 
ra definitorio del horde izquierdo. Los dos 
liltimos parametros especifican los hordes 
superior e inferior de la ventana; el menor 
de ellos se considera definitorib del horde 
superior. 


&1B 27 


ESC 




Sin efecto. Se lo ignora. 


&1C 28 


FS 


Oa 15 
Oa31 
Oa31 


Asigna dos colores a una tinta. Equivale a 
la orden INK. El primer pardmetro (MOD 
16) especifica el mimero de tinta; los dos 
siguientes (MOD 32), los colores deseados. 
(Los valores 27 a 31 no corresponden a co- 
lores definidos.) 


&1D 29 


GS 


Oa31 
Oa31 


Asigna dos colores al horde. Equivale a 
la orden BORDER. Los dos parametros 
(MOD 32) especifican los colores. (Los va- 
lores 27 a 31 no corresponden a colores 
definidos.) 


&1E 30 


RS 




Lleva el cursor al extreme superior izquier- 
do de la ventana. 


&1F 31 


US 


1 a 80 
1 a 25 


Lleva el cursor a la posici6n especificada 
dentro de la ventana actual. Equivale a la 
orden LOCATE. El primer parametro re- 
presenta la columna; el segundo, la linea. 
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Parte 2: El sistema operativo 



La gestidn interna del 464/6128 es realizada en tiempo real por un sofisticado sistema ope- 
rative. El sistema operative es una especie de 'guardia de trafico' que controla el flujo 
entre entradas y salidas. 

Su funcion primordial es servir de intermediario (interfaz) entre BASIC y los circuitos 
electronicos. Por ejemplo, cuando el programa exige que parpadeen las tintas, BASIC en- 
trega al sistema operative los pardmetros y este realiza el trabajo. 

El sistema operative de la maquina es lo que se suele deneminar 'firmware'. Es un progra- 
ma grabado en ROM y comprende las rutinas en codige de maquina que sen invocadas 
por las or denes de alto nivel de BASIC. 

Si se siente tentade a modificar el centenido de posiciones de memoria (con la orden PO- 
KE) o a invocar subrutinas del sistema operative (con CALL), grabe el programa antes 
de que sea demasiado tarde. 

Si usted piensa programar en c6digo de maquina, debe proveerse de un programa ensam- 
blador. 



Parte 3: Interrupciones 

El 464/6128 utiliza ampliamente las interrupciones del Z80 para proporcionar un sistema 
operative que incluye varias caracteristicas multitarea, de Ir s que son ejemplo las estructu- 
ras AFTER y EVERY descritas en etro lugar de este manual. El orden de prieridad de los 
temperizaderes es el siguiente: 

Break ([ESC][ESC]) (detencion del programa) 

Temperizador 3 

Temporizader 2 (y las tres colas de sonido) 

Temperizador 1 

Temporizader 

Las interrupciones solo se deben programar despues de censiderar las consecuencias de 
los posibles estades intermedios de las variables en el memento de la interrupcion. La sub- 
rutina de interrupcion debe evitar interaccienes indeseadas con el estade de las variables 
del programa principal. 
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Las colas de sonidos tienen interrupciones independientes, de igual nivel de prioridad. 
Una vez iniciada una interrupci6n de sonido, ya no puede ser interrumpida por otra de 
sonido. Este mecanismo permite que las rutinas de interrupcidn de sonido puedan com- 
partir variables sin estar sujetas a los riesgos mencionados. 

Cuando se habilita una interrupci6n de cola de sonido (con ON SQ GOSUB), la interrup- 
cion se realiza inmediatamente si la cola de sonido del canal correspondiente no estd Uena; 
si lo esta, la interrupcion se producira cuando termine el sonido actual y quede espacio 
libre en la cola. La accion de la interrupci6n inhibe el suceso, de modo que la subrutina 
debe ser rehabilitada si se la va a utilizar mas tarde. 

Las acciones de enviar un sonido y de examinar el estado de la cola inhiben tambien la 
interrupcion de sonido. 

Parte 4: Caracferes ASCII y caracteres 
graficos en BASIC 



ASCII 



En la tabla siguiente se da la relaci6n de los codigos y caracteres ASCII. Los numeros es- 
tdn en decimal, octal y hexadecimal. En las siguientes p^nas se ilustra el diseno de los 
caracteres generados por el 464/6128. 
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DEC 


OCTAL 


HEX 


Caracteres ASCn 


DEC 


OCTAL 


HFX 


Ascn 


DEC 


OCTAL 


HFX 


AScn 





000 


00 


NUL (ICONTROU®) 


50 


062 


32 


2 


100 


144 


64 


d 


1 


001 


01 


SOH ([CONTROUA) 


51 


063 


33 


3 


101 


145 


65 


e 


2 


002 


02 


STX ([CONTROUB) 


52 


064 


34 


4 


102 


146 


66 


f 


3 


003 


03 


ETX (ICONTROUC) 


53 


065 


35 


5 


103 


147 


67 


9 


4 


004 


04 


EOT (CCONTROUD) 


54 


066 


36 


6 


104 


150 


68 


h 


5 


005 


05 


ENQ ([CONTROUE) 


55 


067 


37 


7 


105 


151 


69 


i 


6 


006 


06 


ACK ([CONTROUF) 


56 


070 


38 


8 


106 


152 


6A 


J 


7 


007 


07 


BRL ([CONTROUG) 


57 


071 


39 


9 


107 


153 


6B 


k 


8 


010 


08 


BS ([CONTROUH) 


58 


072 


3A 




108 


154 


6C 


1 


9 


Oil 


09 


HT ((CONTROUI) 


59 


073 


3B 


; 


109 


155 


6D 


m 


10 


012 


0/ 


LF ([CONTROUJ) 


60 


074 


3C 


< 


110 


156 


6E 


n 


11 


013 


0. 


VT (ICONTROUK) 


61 


075 


3D 


= 


111 


157 


6E 


o 


12 


014 


OC 


FF ([CONTROUL) 


62 


076 


3E 


> 


112 


160 


70 


P 


13 


015 


OD 


OR ([CONTROUM) 


63 


077 


3F 


7 


113 


161 


71 


q 


14 


016 


OE 


SO ((CONTROUN) 


64 


100 


40 


® 


114 


162 


72 


r 


15 


017 


OF 


SI aCONTROUO) 


65 


101 


41 


A 


115 


163 


73 


s 


16 


020 


10 


DLE ([CONTROUP) 


66 


102 


42 


B 


116 


164 


74 


t 


17 


021 


11 


DCl ([CONTROUQ) 


67 


103 


43 


C 


117 


165 


75 


u 


18 


022 


12 


DC2 ([CONTROUR) 


68 


104 


44 


D 


118 


166 


76 


V 


19 


023 


13 


DC3 (ICONTROUS) 


69 


105 


45 


E 


119 


167 


77 


w 


20 


024 


14 


DC4 ([CONTRGUT) 


70 


106 


46 


F 


120 


170 


78 


X 


21 


025 


15 


NAK aCONTROUU) 


71 


107 


47 


G 


121 


171 


79 


y 


22 


026 


16 


SYN (tCGNTROUV) 


72 


110 


48 


H 


122 


172 


7A 


z 


23 


027 


17 


ETB aCONTROUW) 


73 


111 


49 


1 


123 


173 


7B 


1 


24 


030 


18 


CAN ([CONTROLPQ 


74 


112 


4A 


J 


124 


174 


70 


j 


25 


031 


19 


EM aCONTROUY) 


75 


113 


4B 


K 


125 


175 


7D 


I 


26 


032 


lA 


SUB aCONTRGUZ) 


76 


114 


4C 


L 


126 


176 


7E 




27 


033 


IB 


ESC aCONTROUD 


77 


115 


4D 


M 










28 


034 


IC 


FS aCONTROUX) 


78 


116 


4E 


N 










29 


035 


ID 


GS ([CONTROUI) 


79 


117 


4F 


O 










30 


036 


IE 


RS aCONTROLlT) 


80 


120 


50 


P 










31 


037 


IF 


US ([CONTROUO) 


81 


121 


51 


Q 










32 


040 


20 


SP 


82 


122 


52 


R 










33 


041 


21 


1 


83 


123 


53 


S 










34 


042 


22 


" 


84 


124 


54 


T 










35 


043 


23 


# 


85 


125 


55 


U 










36 


044 


24 


$ 


86 


126 


56 


V 










37 


045 


25 


% 


87 


127 


57 


w 










38 


046 


26 


& 


88 


130 


58 


X 










39 


047 


27 


• 


89 


131 


59 


Y 










40 


050 


28 


{ 


90 


132 


5A 


z 










41 


051 


29 


) 


91 


133 


5B 


[ 










42 


052 


2A 


* 


92 


134 


5C 


\ 










43 


053 


2B 


+ 


93 


135 


5D 


] 










44 


054 


2C 


J 


94 


136 


5E 


T 










45 


055 


2D 


- 


95 


137 


5F 













46 


056 


2E 




96 


140 


60 


' 










47 


057 


2F 


/ 


97 


141 


61 


a 










48 


060 


30 





98 


142 


62 


b 










49 


061 


31 


1 


99 


143 


53 


c 
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Conjunto de caracteres graficos especificos 
de la maquina 



Los caracteres aqui reproducidos estan representados en la 
matriz estdndar de 8x8 en la que se basa la visualizacion de 
texto en la pantalla del 464/6128. Los caracteres definidos 
por el usuario pueden ser agrupados para conseguir efectos 
especiales. Vease la seccion 'Caracteres definidos por el 
usuario' en el capitulo 'Cuando usted guste . . .'. 




33 

&H21 
&X001 00001 



34 

&H22 
&X001 00010 




s^:T!: 



35 

&H23 
&X001 00011 



32 &H20 
&X001 00000 






36 

&H24 

&X00100100 




37 

&H25 

&X00100101 



;ssrA 



38 

&H26 

&X00100110 



39 

&H27 

&X00100111 



§1 



40 

&H28 

&X00101000 




41 

&H29 

&X00101001 



S^K 






42 

&H2A 

&X00101010 



m 



43 

&H2B 

&X00101011 



44 

&H2C 

&X00101100 



m 



45 

&H2D 

&X00101101 



46 

&H2E 

&X00101110 



H 



47 

&H2F 

&X00101111 



r 



48 

&H30 
&X001 10000 
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49 

&H31 

&X00110001 



5 



50 

&H32 

&X00110010 






51 

&H33 

&X00110011 




52 

&H34 

&X00110100 




53 

&H35 

&X00110101 



::r 



54 

&H36 

&X00110110 




55 

&H37 

&X00110111 






56 

&H38 
&X001 11000 




57 

&H39 

&X00111001 




58 

&H3A 
&X001 11010 




59 

&H3B 
&X001 11011 



m 



&H3C 
&X00111100 



JUHHUUC 

fflFflh: 



-JUBHUI' 
fl+ffffl 



61 

&H3D 

&X00111101 




n 



62 

&H3E 

&X00111110 



:- 



63 

&H3F 

&X00111111 



am" 
■IuTb 

■Eaaa 



64 

&H40 

&X01000000 




65 

&H41 
&X01 000001 




66 

&H42 
&X01 000010 






btJUUHCI 

I I rTTTI I 



67 

&H43 
&X01 000011 




68 

&H44 

&X01000100 
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69 

&H45 

&X01000101 




70 

&H46 

&X01 000110 




■ ■ ■ ■ ■ S~ 
nmnnrr 



71 

&H47 

&X01000111 



-■iW 

-■iu- 



72 

&H48 
&X01 001000 




73 

&H49 

&X01001001 




74 

&H4A 

&X01001010 




75 

&H4B 

&X01001011 



■■■■ :: " 


iff : : 


flnflTTfln- 



76 

&H4C 

&X01001100 




77 

&H4D 

&X01001101 






81 

&H51 

&X01010001 




78 

&H4E 

&X01001110 




82 

&H52 

&X01010010 



■EX" 



79 

&H4F 

&X01001111 



1 1 nnm 1 1 



83 

&H53 

&X01010011 




80 

&H50 

&X01010000 




FMWm 



84 

&H54 

&X01010100 







85 


86 


87 


88 


&H55 


&H56 


&H57 


&H58 


&X01010101 


&X01010110 


&X01010111 


&X01011000 
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&H59 
&X01011001 




90 

&H5A 

&X01011010 




::fn 



i 



91 

&H5B 

&X01011011 



92 

&H5C 

&X01011100 




93 

&H5D 

&X01011101 




94 

&H5E 

&X01011110 



■ft"Pfl^ 



95 

&H5F 

&X01011111 



-.3 



96 

&H60 
&X011 00000 





97 

&H61 

&X01100001 



98 

&H62 
&X01 100010 




JTr 



&H63 
&X01 100011 



100 

&H64 

&X01100100 




101 
&H65 
&X01 100101 




102 

&H66 

&X01100110 







103 

&H67 

&X01100111 



104 
&H68 
&X01 101000 







105 


106 


107 


108 


&H69 


&H6A 


&H6B 


&H6C 


&X01 101001 


&X01 101010 


&X01101011 


&X01101100 
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109 

&H6D 

&X01101101 





110 

&H6E 

&X01101110 



111 
&X01101111 




112 
&H70 
&X01 110000 




113 

&H71 

&X01110001 



m 



nnnn i iti i i i i i i i~r 



114 
&H72 
&X01 110010 



115 
&H73 
&X01 110011 




116 
&H74 
&X01 110100 




117 

&H75 

&X01110101 





118 

&H76 

&X01110110 



119 

&H77 

&X01110111 




120 

&H78 

&X01111000 



s 


i 



121 

&H79 

&X01111001 




125 

&H7D 

&X01111101 





122 

&H7A 

&X01111010 



123 

&H7B 

&X01111011 



m 




124 

&H7C 

&X01111100 




126 

&H7E 

&X01111110 



127 

&H7F 

&X01111111 



128 

&H80 

&X1 0000000 
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■ ■ 



129 

&H81 

&X1 0000001 






130 

&H82 

&X10000010 




133 

&H8S 

&X1 00001 01 



B 

137 
&H89 
&X1 0001 001 



134 

&H86 

&X10000110 




138 

&H8A 

&X10001010 





141 

&H8D 

&X10001101 



142 

&H8E 

&X10001110 





145 

&H91 

&X10010001 



146 

&H92 

&X10010010 



131 

&H83 

&X10000011 




135 

&H87 

&X10000111 




139 

&H8B 

&X1 0001 Oil 




143 

&H8F 

&X10001111 




147 

&H93 

&X1 001 0011 




132 

&H84 

&X1 00001 00 






136 

&H88 

&X1 0001 000 



140 

&H8C 

&X10001100 



m 



144 

&H90 

&X10010000 




148 

&H94 

&X10010100 
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6/15 







149 


150 


151 


152 


&H95 


&H96 


&H97 


&H98 


&X10010101 


&X10010110 


&X10010111 


&X10011000 






( 



153 


154 


155 


156 


&H99 


&H9A 


&H9B 


&H9C 


&X10011001 


&X10011010 


&X10011011 


&X10011100 




l l l l l l l i 





m 



157 


158 


159 


160 


&H9D 


&H9E 


&H9F 


&HAO 


&X10011101 


&X10011110 


&X10011111 


&X10100000 





161 


162 


163 


164 


&HA1 


&HA2 


&HA3 


&HA4 


&X10100001 


&X10100010 


&X10100011 


&X10100100 



r 







165 


166 


167 


168 


&HA5 


&HA6 


&HA7 


&HA8 


&X10100101 


&X10100110 


&X10100111 


&X10101000 
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ffl 



169 

&HA9 

&X10101001 




170 

&HAA 

&X10101010 




171 

&HAB 

&X10101011 




172 

&HAC 

&X10101100 



u 




yi 


- 


^ 



173 

&HAD 

&X10101101 



174 

&HAE 

&X10101110 



175 

&HAF 

&X10101111 




176 
&HBO 
&X101 10000 



r 
■ 



177 
&HB1 
&X101 10001 




178 

&HB2 

&X10110010 



J- 



179 
&HB3 
&X101 10011 




180 
&HB4 
&X101 10100 






181 
&HB5 
&X101 10101 




182 

&HB6 

&X10110110 



1 


1 



183 

&HB7 

&X10110111 



■ : :*:rBi 
5 S Si 



184 
&HB8 
&X101 11000 



™ 



m 



185 
&HB9 
&X101 11001 




186 
&HBA 
&X101 11010 




187 
&HBB 
&X101 11011 



rrt\ \\ rr 



188 

&HBC 

&X10111100 
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' : ■■■ : ■ 

r ■: 



189 190 191 

&HBD &HBE &HBF 

&X10111101 «iX10111110 &X10111111 



193 194 195 

&HC1 &HC2 &HC3 

&X11000001 &X11000010 &X11000011 






197 

&HC5 

&X11000101 



198 

&HC6 

&X11000110 



199 

&HC7 

&X11000111 



ffiH 







201 

&HC9 

&X1 1001 001 



202 

&HCA 

&X11001010 



203 

&HCB 

&X11001011 



m 



m 





m 



192 

&HC0 

&X1 1000000 



■ ■■■ 



196 

&HC4 

&X1 1000100 




200 

&HC8 

&X11001000 




204 

&HCC 

&X11001100 



205 

&HCD 

&X11001101 



206 

&HCE 

&X11001110 



207 

&HCF 

&X11001111 



208 

&HDO 

&X11010000 
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■■■■■■■■ 






■■■■■■■■ 







209 

&HD1 

&X11010001 



210 

&HD2 

&X11010010 



211 

&HD3 

&X1 1010011 







■I 



212 

&HD4 

&X11010100 



213 

&HD5 

&X1 1010101 



214 

&HD6 

&X11010110 



215 

&HD7 

&X1 10101 11 



216 

&HD8 

&X11011000 





wra 



217 

&HD9 

&X11011001 



218 

&HDA 

&X11011010 



219 

&HDB 

&X11011011 



220 

&HDC t '! 

&X11011100 



m 






221 

&HDD 

&X11011101 



222 

&HDE 

&X11011110 



223 

&HDF 

&X11011111 



224 

&HEO 

&XilihiOO0OO 




225 

&HE1 

&X11100001 






■■■"■■■■ 



226 

&HE2 

&X11100010 





227 

&HE3 

&X1 1100011 



228 

&HE4 

&X11100100 
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229 

&HE5 

&X11100101 



Ba 







230 

&HE6 

&X11100110 





231 

&HE7 

4X11100111 



232 

&HE8 

&X11101000 



J M^M 



233 

&HE9 

&X1 1101001 




::r 




234 

&HEA 

&X11101010 



235 

&HEB 

&X11101011 



236 

&HEC 

&X11101100 




237 

&HEO 

&X11101101 






238 

&HEE 

&X1 1101 110 



239 

&HEF 

&X11101111 



240 

&HFO 

&X11110000 




241 

&HF1 

&X1 11 10001 




Mtffl 





242 

&HF2 

&X11110010 



243 

&HF3 

&X11110011 



244 

&HF4 

&X11110100 




m 





245 


246 


247 


248 


&HF5 


&HF6 


&HF7 


&HF8 


&X11110101 


&X11110110 


&X11110111 


4X11111000 
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■ ■_ HI 



"wrTnir 





249 

&HF9 

&X11111001 



250 

&HFA 

&X11111010 



251 

&HFB 

&X11111011 



252 

iHFC 

ftXIimiOO 






253 


254 


2SS 


&HFD 


WFE 


&HFF 


&X11111101 


&X11111110 


4X11111111 
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Parte 5: Esquemas del teclado 

Valores ASCII implicltos generados por las 
teclas (HEX) 

TJOJTJTrUTJTJTJTJTJTrLTlJTJTJTJTJTJTJTJTJa^^ 



"'^ISl 



23 
33 



24 
34 



El 
09 
09 



■n (I 17 

51 57 
71 77 



26 
36 



27 
37 



28 
38 



IF 
5F 
30 



3D 
2D 



14 
54 
74 



19 
59 
79 



N/A 



01 II 13 
41 53 
61 73 



10 
50 
70 



IE 
A3 
5E 



06 II 07 
46 47 
66 67 



08 II OA II OB II OC I 

48 4A 4B 4C 2A 

68 II 6A II 66 II 6C II 3A 



M 



IIP 
7D 
5D 



OO 



N/A 



N/A 



N/A 



N/A 



03 II 16 
43 56 
63 76 



OE II OD 
4E 40 
6E 60 



3C 
2C 



3F II 60 
2F II 5C 



N/A 



N/A 



EO 
EO 
EO 



20 
20 



rran 

F5 
F1 



JOYSTICK O 






ce 

OB 












08 
08 


DISP. 2 

58 
58 


DISP. 1 

5A 
5 A 


09 
09 












OA 
OA 







JOYSTICK 1 







26 

36 












12 
52 
72 


DISP. 2 
07 
47 
67 


DISP. 1 

St 

66 


14 
54 
74 












25 
35 
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Codigos expansibles: posiciones y valores 
implicitos 



N/A 



N/A 



N/A N/A N/A N/A N/A N/A N/A N/A N/A N/A N/A N/A N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A 



N/A N/A 



N/A , N/A 



N/A N/A 



N/A 



135 

m 



132 
132 
132 



136 
136 
136 



133 



N/A 



137 



13. 
134 



131 
HI 



N/A 



N/A 



N/A 



140 
39 
139 



N/A 



N/A 



N/A 



Codigo 
expansible 


Asignaci6n implicita 


Caracter 


Valor ASCII 


0(128) 

1(129) 

2(130) 

3(131) 

4(132) 

5(133) 

6(134) 

7(135) 

8(136) 

9(137) 

10(138) 

11(139) 

12(140) 



1 
2 
3 
4 
5 
6 
7 
8 
9 

[RETURN] 
RUN" [RETURN] 


&30 
&31 
&32 
&33 
&34 
&35 
&36 
&37 
&38 
&39 
&2E 
&0D 
&52&55&4E&22&0D 


Nota. Los caracteres expansibles 13 a 31 (141 a 159) no tie- 
nen asignada ninguna cadena de expansion. Su expansion 
se puede definir con la orden KEY de BASIC, y se los pue- 
de asignar a teclas concretas con la orden KEY DEF. 
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Numeros de las teclas y los joysticks 



~uijTjTruxriJTjTjxnjTJTJTJTJTJTJTjxriJirLrij^^ 



66 64 65 1 57 


56 1 49 1 48 1 41 1 40 33 | 32 | 25 1 24 1 16 1 79 


X3 Tl 


3 


68 67|59|58 5oJ5l|43|42|J35l34|27|26|l7| 18 


20 12 


4 


70 1 69 1 60 1 61 53 1 52 


44|45|37|36|29|28|l9 


13 14 


5 


21 


71 


63 J62 1 55|54|46 J38|39| 31 1 3o|22 1 21 


15 


O 


7 


23 


9 1 47 1 a 


8 


2 


1 



JOYSTICK O 



JOvsncKi 









72 












48 






























74 




OlSP. 2 
76 


DISP. 1 
77 




75 




50 




DISP. 2 
52 


DISP. 1 
53 




51 






























73 












49 
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Parte 6: Sonidos 



Notas y periodos de tono 

La tabla siguiente da los valores recomendados para el pardmetro periodo-de-tono corres- 
pondientes a los tonos y semitonos de las ocho octavas que puede producir el ordenador. 

Las frecuencias generadas no coinciden exactamente con las requeridas porque el periodo- 
de-tono tiene que ser un numero entero. El 'error relativo' es el cociente: 

frecuencia req uerida-frecuencia generada 
frecuencia requerida 

expresado en porcentaje. 



NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


16.352 


3822 


-0.007% 




C# DO# 


17.324 


3608 


+0.007% 




D RE 


18.354 


3405 


-0.007% 




D# RE# 


19.445 


3214 


-0.004% 




E MI 


20.602 


3034 


+0.009% 




F FA 


21.827 


2863 


-0.016% 




F# FA# 


23.125 


2703 


+0.009% 


Octava -4 


G SOL 


24.500 


2551 


-0.002% 




G# SOL# 


25.957 


2408 


+0.005% 




A LA 


27.500 


2273 


+0.012% 




A# LA# 


29.135 


2145 


-0.008% 




B SI 


30.868 


2025 


+0.011% 
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NOTA 


FRECUENCL\ 


PERIODO 


ERROR RELATIVO 


C 


DO 


32.703 


1911 


-0.007% 


c# 


DO# 


34.648 


1804 


+0.007% 


D 


RE 


36.708 


1703 


+0.022% 


D# 


RE# 


38.891 


1607 


-0.004% 


E 


MI 


41.203 


1517 


+0.009% 


F 


FA 


43.654 


1432 


+0.019% 


F# 


FA# 


46.249 


1351 


-0.028% Octava -3 


G 


SOL 


48.999 


1276 


+0.037% 


G# 


SOL# 


51.913 


1204 


+0.005% 


A 


LA 


55.000 


1136 


-0.032% 


A# 


LA# 


58.270 


1073 


+0.039% 


B 


SI 


61.735 


1012 


-0.038% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C 


DO 


65.406 


956 


+0.046% 


c# 


DO# 


69.296 


902 


+0.007% 


D 


RE 


73.416 


851 


-0.037% 


D# 


RE# 


77.782 


804 


+0.058% 


E 


MI 


82.407 


758 


-0.057% 


F 


FA 


87.307 


716 


+0.019% 


F# 


FA# 


92.499 


676 


+0.046% Octava -2 


G 


SOL 


97.999 


638 


+0.037% 


G# 


SOL# 


103.826 


602 


+0.005% 


A 


LA 


110.000 


568 


-0.032% 


A# 


LA# 


116.541 


536 


-0.055% 


B 


SI 


123.471 


506 


-0.038% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELAllVO 


C 


DO 


130.813 


478 


+0.046% 


c# 


DO# 


138.591 


451 


+0.007% 


D 


RE 


146.832 


426 


+0.081% 


D# 


RE# 


155.564 


402 


+0.058% 


E 


MI 


164.814 


379 


-0.057% 


F 


FA 


174.614 


358 


+0.0i9% 


F# 


FA# 


184.997 


338 


+0.046% Octava -1 


G 


SOL 


195.998 


319 


+0.037% 


G# 


SOL# 


207.652 


301 


+0.005% 


A 


LA 


220.000 


284 


-0.032% 


A# 


LA# 


233.082 


268 


-0.055% 


B 


SI 


246.942 


253 


-0.038% 
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^^^_-^^^^-^^^— ^^^— ^^^ 1 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELAIIVO 


C DO 


261.626 


239 


+0.046% DO media 


C# DO# 


277.183 


225 


-0.215% 


D RE 


293.665 


213 


+0.081% 


D# RE# 


311.127 


201 


+0.058% 


E MI 


329.628 


190 


+0.206% 


F FA 


349.228 


179 


+0.019% 


F# FA# 


369.994 


169 


+0.046% Octava 


G SOL 


391.995 


159 


-0.277% 


G# SOL# 


415.305 


150 


-0.328% 


A LA 


440.000 


142 


-0.032% LA internacional 


A# LA# 


466.164 


134 


-0.055% 


B SI 


493.883 


127 


+0.356% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELAIIVO 


C DO 


523.251 


119 


-0.374% 


C# DO# 


554.365 


113 


+0.229% 


D RE 


587.330 


106 


-0.390% 


D# RE# 


622.254 


100 


-0.441% 


E MI 


659.255 


95 


+0.206% 


F FA 


698.457 


89 


-0.543% 


F# FA# 


739.989 


84 


-0.548% Octava 1 


G SOL 


783.991 


80 


+0.350% 


G# SOL# 


830.609 


75 


-0.328% 


A LA 


880.000 


71 


-0.032% 


A# LA# 


932.328 


67 


-0.055% 


B SI 


987.767 


63 


-0.435% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


1046.502 


60 


+0.462% 


C# DO# 


1108.731 


56 


-0.662% 


D RE 


1174.659 


53 


-0.390% 


D# RE# 5 


1244.508 


50 


-0.441% 


E MI 


1318.510 


47 


-0.855% 


F FA 


1396.913 


45 


+0.574% 


F# FA# 


1479.978 


42 


-0.548% Octava 2 


G SOL 


1567.982 


40 


+0.350% 


G# SOL# 


1661.219 


38 


+0.992% 


A LA 


1760.000 


36 


+ 1.357% 


A# LA# 


1864.655 


34 


+ 1.417% 


B SI 


1975.533 


32 


+ 1.134% 
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NOTA 


FRECUENCIA 


PERIODO 


ERROR RELAilVO 




C DO 


2093.004 


30 


+0.462% 




C# DO# 


2217.641 


28 


-0.662% 




D RE 


2349.318 


27 


+1.469% 




D# RE# 


2489.016 


25 


-0.441% 




E MI 


2637.021 


24 


+ 1.246% 




F FA 


2793.826 


22 


-1.685% 




F# FA# 


2959.955 


21 


-0.548% 


Octava 3 


G SOL 


3135.963 


20 


+0.350% 




G# SOL# 


3322.438 


19 


+0.992% 




A LA 


3520.000 


18 


+ 1.357% 




A# LA# 


3729.310 


17 


+ 1.417% 




B SI 


3951.066 


16 


+1.134% 





Estas frecuehcias han sido cdculadas a partir de la coirespondieftte a la nota LA interna- 
clonal mediante la sigulente formula: 

FRECUENCIA=440*(2t(OCTAVA+((N-10)/12))) 
PERIODO=ROUND(62500/FRECUENCIA) 

donde N es 1 para DO, 2 para D0#, etc. 

Parte 7: Mensajes de &ror de BASIC 



1 Unexpected NEXT 

Se ha encontrado un NEXT que no corresponde a ningiin FOR, o bien la variable mencio- 
nada tras NEXT no coincide con la de FOR. 

2 Syntax error 

BASIC no puede entender la linea porque algo en ella no se ajusta a las reglas de sintaxls 
del lenguaje. 
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3 Unexpected RETURN 

Si ha encontrado una orden RETURN fuera de una submtina. 

4 DATA exhausted 

Una orden READ ha intentado leer mds datos de los incluidos en lineas DATA. 

5 Improper argument 

Este es un error no especifico. Puede haber algo incorrecto en el argumento de una fun- 
ci6n o en un parteietro de una orden. 

6 Overflow 

El resultado de una operaci6n aritm^tica ha sobrepasado los mdrgenes aceptables. Si ha 
ocurrido en un niimero en punto flotante, el resultado ha side mayor que 1.7E+38 
(aprox.). Tambi^n puede haber ocurrido al intentar convertir un ntimero en punto flotan- 
te en un enter o con signo de 16 bits. 

7 Memory full 

El programa actual o sus variables ocupan demasido espacio en la memoria, el anidamien- 
to de la estructura de control es demasiado profundo (demasiadas 6rdenes GOSUB, 
WHILE FOR anidadas). 

La orden MEMORY provoca este error si se intenta situar el Ifmite de la memoria accesi- 
ble a BASIC demasiado bajo, o tan alto que sea imposible. Obslrvese que los ficheros 
abiertos tienen un tamp6n dedicado a ellos, lo que puede restringir los valores correctos 
de MEMORY. 

B Line does not exist 

Se ha mencionado un niimero de Unea que no existe en el programa. 
9 Subscript out of range 

tJno de los isubindices mencionados en una lista es demasiado pequeflo o demasiado 
grande. 
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10 Array already dimensioned 

Una de las listas declaradas en una orden DIM ya ha sido dimensionada antes. 

11 Division by zero 

Division por cere, que puede ocurrir en la division de numeros reales, en la division ente- 
ra, en la operacion MOD y en la exponenciaci6n. 

12 invalid direct command 

Se ha intentado dar como orden directa una orden que s61o es valida si va precedida de 
un niimero de linea. 

13 Type mismatch 

Incongruencia de tipos. Un dato es literal cuando tenia que ser numerico, o viceversa, o 
se ha introducido un dato no numerico en READ o INPUT. 

14 String space full 

Se han creado demasiadas cadenas literales y ya no hay espacio disponible para mas, in- 
cluso despues de reorganizar la memoria. 

15 String too long 

Una cadena literal consta de mas de 255 caracteres. Puede haber sido generada por conca- 
tenacion de otras. 

16 String expression too complex 

Expresion literal demasiado compleja. Las expresiones literales pueden generar valores in- 
termedios; cuando el niimero de estos valores excede de un limite razonable, se produce 
este error. 

17 Cannot CONTinue 

No se puede reanudar la ejecucion del programa con CONT. Observese que CONT reanu- 
da el programa despues de una instruccion STOP, de [ESCKESC] o de un error, pero 
a condicion de que no se modifique el programa durante la pausa. 
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18 Unknown user function 

Se ha invocado una FN sin la correspondiente DEF FN. 

19 RESUME missing 

Se ha llegado al final del programa mientras se ejecutaba una rutina de gestion de errores 
(esto es, una rutina invocada por ON ERROR GOTO). 

20 Unexpected RESUIVIE 

RESUIVIE s61o es vaUda en una rutina de gestion de errores (esto es, en una rutina invoca- 
da por ON ERROR GOTO). 

21 Direct command found 

Al cargar un fichero se ha encontrado una linea sin numero de linea. 

22 Operand missing 

BASIC ha encontrado una expresi6n incompleta. 

23 Line too long 

BASIC ha convertido a su forma interna una linea y 6sta ha resuhado ser demasiado 
larga. 

24 EOF met 

Se ha intentado leer mas alia del final del fichero de entrada. 

25 File type error 

El fichero que se ha leido no es del tipo adecuado. OPENIN s61o puede abrir ficheros de 
texto ASCII. Analogamente, LOAD, RUN, etc., solamente pueden acceder a ficheros 
creados por SAVE. 

26 NEXT missing 

BASIC ha encontrado un FOR al que no corresponde ningiin NEXT. La linea mencionada 
tras el mensaje es aquella en la que se encuentra el FOR. 
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27 File already open 

Se ha ejecutado una orden OPEIMIN u OPENOUT sin previamente cerrar el fichero que 
estaba abierto. 

28 Unknown command 

BASIC no encuentra un comando externo que corresponda a lo que se ha escrito tras I . 

2B WEND missing 
BASIC ha encontrado un WHILE al que no corresponde ningiin WEND. 

30 Unexpected WEND 

Se ha encontrado un WEND que no corresponde a ningun WHILE, o bien el WEND no 
concuerda con el WHILE del bucle actual. 

31 File not open 

Vease la secci6n 'Errores de disco'. 

32 Broken in 

Vease la seccion 'Errores de disco'. 
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Errores de disco en AMSDOS 

Hay varies errores que pueden producirse con ocasion del manejo de ficheros en disco. 
BASIC da a todos ellos el niimero de ERR 32; no obstante, DERR contiene informacion 
mas especifica cuando se detecta ese niimero de error. Los valores de DERR tienen el si- 
guiente significado: 



Error de 
AMSDOS 


Valor de 
DERR 


Causa del error 



14 
15 
16 
17 
18 
19 
20 
21 
22 
26 


0o22 

142 (128+14) 

143 (128+15) 

144 (128+16) 

145 (128+17) 

146 (128+18) 

147 (128+19) 

148 (128+20) 
148 (128+tl) 
150 (128+22) 
154 (128+26) 


Se ha pulsado [ESC]. 

El canal no se encuentra en situaci6n correcta. 
Se ha alcanzado el final fisico del Hchero. 
Orden incorrecta: generalmente nombre de flchero incorrecto. 
El fichero ya existe. 
El fichero no existe. 
El directorio estd Ueno. 
El disco estd Ueno. 

Se ha pambiado el disco cuando habfa ficheros abiertos en 61. 
El fichero es de 's61o lectura'. 

Se ha llegado al final de los datos grabados en el fichero (fi- 
nal 16gico del fichero). 



Si AMSDOS ya ha informado de un error, el bit 7 de DERR estd a 1 y por lo tanto todos 
los valores de DERR estdn desplazados en 128 unidades. 

Otros valores generados por DERR proceden del controlador del disco. Su significado se 
analiza bit a bit. EI bit 6 siempre estd a 1. El bit 7 indica si AMSDOS ha informado del 
error (segiin se ha explicado antes). El significado de los bits es el siguiente: 



Bit 



Significado 




1 

2 
3 
4 
5 
6 



Falt?i marca de direcciones. 

No escribible. El disco estd protegido. 

Faltan datos. No se puede encontrar el sector. 

No hay disco en la unidad, unidad no preparada. 

Error de sincronizaci6n (velocidad). 

Error de datos. Error CRC (comprobaci6n de redundancia ciclica). 

Siempre a 1, para indicar que es un error detectado por el controlador del 

disco. 
A 1 si AMSDOS ya ha informado del error. 
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ERR tambien puede dar el valor 31 si se ha intentado el acceso sin haber ningiin fichero 
abierto. La forma recomendable de utilizar ERR y DERR consiste en incluir una instruc- 
cion ON ERROR GOTO que invoque una pequena subrutina en la cual se compruebe si 
ERR es 31 o 32; si es 32, se puede examinar DERR para obtener mayor informaci6n sobre 
la naturaleza del error. Por ejemplo: 

10 ON ERROR GOTO 1000 

20 OPENOUT "fichero.asc" 

30 WRITE #9,"prueba-datos" 

40 CLOSEOUT 

50 END 

1000 erramsdos=(DERR AND &7F): REM mascara para bit 7 

1010 IF ERR<31 THEN END 

1020 IF ERR=31 THEN PRINT "Esta seguro de que ha tecleado la linea 20 

correctamente?" :END 
1030 IF erramsdos=20 THEN PRINT "Disco lleno; ponga otro disco de datos.": 

END 
1040 IF erramsdos=&X01001000 THEN PRINT "Inserte un disco en la unidad y 

luego pulse una tecla.": WHILE INKEY$="":WEND:RESUME 
1050 END 



Parte 8: Palabras reservadas de BASIC 



A continuaci6n damos la lista de las palabras reservadas para el BASIC de AMSTRAD 
464/6128, las cuales, por consiguiente, no pueden ser utilizadas como nombres de variables. 

ABS, AFTER, AND, ASC, ATN, AUTO 

BiN$, BORDER 

CALL, CAT, CHAIN, CHR$, CINT, CLEAR, CLG, CLOSEIN, CLOSEOUT, CLS, 
CONT, COPYCHR$, COS, CREAL, CURSOR 

DATA, DEC$, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, DERR, Dl, 
DIM, DRAW, DRAWR 

EDIT, El. ELSE, END, ENT, ENV, EOF. ERASE, ERL, ERR, ERROR. EVERY. EXP 
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FILL, FIX. FN. FOR. FRAME, FRE 

GOSUB. GOTO, GRAPHICS 

HEX$, HIMEM 

IF, INK, INKEY, INKEY$, INP, INPUT. INSTR, INT 

JOY 

KEY 

LEFT$, LEN. LET, LINE, LIST, LOAD. LOCATE. LOG. LOG10. LOWER$ 

MASK. MAX. MEMORY. MERGE, MID$, MIN, MOD, MODE, MOVE. MOVER 

NEXT, NEW. NOT 

ON, ON BREAK, ON ERROR GOTO 0. ON SO. OPENIN. OPENOUT. OR. ORI- 
GIN, OUT 

PAPER, PEEK. PEN, PI, PLOT, PLOTR, POKE. POS. PRINT 

RAD, RAMDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, RESTORE, 
RESUME, RETURN. RIGHT$. RND, ROUND. RUN 

SAVE. SGN, SIN. SOUND. SPACE$, SPC. SPEED. SO. SQR. STEP. STOP, 
STR$. STRING$, SWAP, SYMBOL 

TAB, TAG, TAGOFF, TAN, TEST. TESTR. THEN, TIME, TO. TROFF, TRON 

UNT, UPPER$, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW. WRITE 

XOR, XPOS 

YPOS 

ZONE 
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Pantalla de texto; modo (20 columnas) 
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Pantalla de texto; modo 1 (40 columnas) 
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Pantalla de texto; modo 2 (80 columnas) 
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Envolventes de sonido/musica 
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Parte 10: Conexiones 



Z6calos de entradas y salidas del 464/6128 



Joystick 1 Cartucho Sonido estdreo 




Ampliaci6n Impresora 



Zocalo auxiliar 



123456 

uuuuuu 



PatiUa 1 +5V 
PatiUa 2 COMtJN 
PatiUa 3 LAPIZ 6pTICO 



PatiUa 4 DISPARO 2 
PatUIa 5 DISPARO 1 
Patflla 6 MASA 



6/40 



Para su referenda . . . 



Z6calo del adaptador de juegos/joystick 











PatiUa 1 ARRIBA 
PatUla 2 ABAJO 
PatiUa 3 IZQUIERDA 
PatiUa 4 DERECHA 
PatiUa 5 DISPONIBLE 



PatiUa 6 DISPARO 2 
PatiUa 7 DISPARO 1 
PatiUa 8 COMIJN 
PatiUa 9 COM2 



Nota. La patilla 9 no es COM2 en el conector del joystick 2. 



Zocalo del monitor 




6 7 
3 8 1 

5 2* 



PatiUa 1 SINC 
PatiUa 2 VERDE 
PatUla 3 LUM 
PatiUa 4 ROJO 



PatiUa 5 AZUL 
PatiUa 6 SONIDO I 
PatiUa 7 SONIDO D 
PatiUa 8 MASA 
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Zocalo estereo 



C 



DERECHO 



TX) 



A. 



\r 



IZQUIERDO 

DERECHO 

MASA 



MASA IZQUIERDO 



PatiUa 1 CANAL IZQUIERDO 
Patilla 2 CANAL DERECHO 
Patilla 3 MASA 



Zocalo analogico 



8 7 6 5 4 3 2 1 

XmmmmmmmJ 

15 14 13 12 11 10 9 



LINEA 1 



LINEA2 



Patilla 1 MASA COMUN 


Patilla 9 MASA COMUN 


PatiUa 2 DISPARO 1 


Pataia 10 DISPARO 1 


Patilla 3 XI 


PatiUa 11 X2 


Patilla 4 COMl 


Patilla 12 COM2 


Patilla 5 +5V 


PatiUa 13 Y2 


Patilla 6 Yl 


PatiUa 14 DISPARO 2 


Patilla 7 DISPARO 2 


Patilla 15 MASA COMUN 


Patilla 8 MASA COMUN 
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Zocalo de ampliacion 



\ rtjtrotrcrairiTatiotrooiJoirooiiii-o-oo-o- 






tHlCHH10041JI-OQO.OO-DOO JV nJVO-0-DO-OJ7 

>u1dA4fi44 8642 



1 * 1 






PatiUa 1 SONIDO 


PatUla 18 AO 


PatiUa 35 INT 


PatiUa 2 MASA 


PatiUa 19 D7 


PatiUa 36 NMI 


PatiUa 3 A15 


PatUla 20 D6 


PatiUa 37 BUSRQ 


PatiUa 4 A14 


PatiUa 21 D5 


PatiUa 38 BUSAK 


PatiUa 5 A13 


PatiUa 22 D4 


PatiUa 39 READY 


PatiUa 6 A12 


PatUla 23 D3 


PatUla 40 BUS RESET 


PatiUa 7 All 


PatiUa 24 D2 


PatiUa 41 RESET 


PatiUa 8 AlO 


PatiUa 25 Dl 


PatiUa 42 ROMEN 


PatiUa 9 A9 


PatUla 26 DO 


PatiUa 43 ROMDIS 


PatiUa 10 A8 


PatiUa 27 +5V 


PatiUa 44 RAMRD 


PatiUa U A7 


PatiUa 28 MREQ 


PatiUa 45 RAMDIS 


PatUla 12 A6 


PatiUa 29 Ml 


PatUla 46 CURSOR 


PatiUa 13 A5 


PaUUa 30 RFSH 


PatiUa 47 LAPIZ 6pTICO 


Pataia 14 A4 


PatUla 31 lORQ 


PatUla 48 EXP 


PatUla 15 A3 


PatiUa 32 RD 


PatiUa 49 MASA 


PatiUa 16 A2 


PatiUa 33 WR 


PatiUa 50 


PatUla 17 Al 


PatiUa 34 HALT 
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Zocalo para la segunda unidad de disco 
($dlo 6128) 



3»a3 3189 



7^31 



■oiji«rtMTtnmtnnmtiinnra- 

4 343U00004XOf»ia-0-0-OJI-OQoJi 



38 34 32 30 



8 6 4 J 



Patilla I 


PatUla 19 PASO 


Patilla 2 MASA 


PatUla 20 MASA 


PatiUa 3 


PatUla 21 ESCRITURA DATOS 


PatUla 4 MASA 


PatUla 22 MASA 


Patilla 3 


PatiUa 23 PUERTA ESCRITURA 


PatiUa 6 MASA 


PatUla 24 MASA 


PatiUa 7 (NDICE 


PatUla 25 PISTA 


PatUla 8 MASA 


PatUla 26 MASA 


PatUla 9 


PatiUa 27 PROT. ESCRITURA 


PatiUa 10 MASA 


PatiUa 28 MASA 


PatUla 11 SELECC. DISCO 1 


PatiUa 29 LECTURA DATOS 


PatiUa 12 MASA 


PatUla 30 MASA 


PatUla 13 


PatUla 31 SELECC. CARA 1 


PatiUa 14 MASA 


PatiUa 32 MASA 


PatiUa 15 MOTOR ENCENDIDO 


PatiUa 33 PREPARADO 


PatUla 16 MASA 


PatUla 34 MASA 


PatiUa 17 SELECC. DIRECC. 


PatUla 35 


PatiUa 18 MASA 


PatiUa 36 MASA 



Zocalo para la Impresora 



% 



28 24 23 22 



fj 





PatUla 17 MASA 


PatiUa 1 STROBE 


Pataia 2 DO 


PatiUa 18 MASA 


PatiUa 3 Dl 


PatUla 19 MASA 


PatUla 4 D2 


PatUla 20 MASA 


PatUla 5 D3 


PatUla 21 MASA 


PatiUa 6 D4 


PatUla 22 MASA 


PatUla 7 D5 


PatUla 23 MASA 


PatUla 8 D6 


PatUla 24 MASA 


PatiUa 9 D7 


PatUla 25 MASA 


PatUla 11 BUSY 


Todas las dem4s N/C 


PatUla 16 +5V 
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Parte It; Impresoras 
fnterfaz 



Al 464/6128 se le puede conectar cualquier impresora que tenga 'interfaz paralelo tipo 
Centronics' de 7 bits. 

El cable es facil de constniir, pues no tiene que realizar m^ que una conexibn biunivoca 
entre el zdcalo PRINTER del ordenador y el conector de la impresora. 

Los detalles de las patillas del interfaz estan ilustrados en la Parte 10 de este capftulo. 

El ordenador utiliza la sefial BUSY (patilla 1 1) para sincronizar con la impresora y espera 
cuando 6sta estd en OFF-LINE (fuera de Unea). 

No es necesario enviar a la impresora c6digos de preparaci6n; la salida del ordenador se 
dirige a la impresora especificando el canal #8. 

La salida PRINTER estd disefiada para conectar impresoras de matriz de puntos de bajo 
costo. No obstante, con el interfaz adecuado, se le pueden conectar impresoras de marga- 
rita, plotters e impresoras de color por chorro de tinta. La compatibilidad estd asegurada 
por el interfaz paralelo. 



Configuracion de la impresora 

Se ha incluido una funci6n que permite que los caracteres que aparecen en la pantalla y 
pueden ser generados por la impresora se escriban en el papel tal como se los ve en la pan- 
talla, aun cuando los c6digos que tienen en el ordenador no coincidan con los que tienen 
en la impresora. La mayor parte de estos signos s61o estd disponible cuando en la impreso- 
ra se ha seleccionado un idioma distinto del ingles. Por ejemplo: 

PRINT CHR$(&AO) 

(en la pantalla) 
PRINT #8,CHR$(&A0) 

(tambien en la impresora) 

Esto ocurre asi a pesar de que el c6digo del acento circunflejo en la impresora es &5E. 
Dicho de otra forma, la programaci5n de la impresora ha reconocido el &A0 como uno 
de los cddigos que tiene en su tabla de traducci6n y lo ha convertido en &5E para escribirlo 
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con la misma forma que en la pantalla. El codigo &5E produce el acento circunflejo cual- 
quiera que sea el idioma seleccionado (no se puede deck lo mismo de los demas c6digos 
que hay en la tabla de traduccidn). Los restantes caracteres de la tabla son los siguientes: 



CHR$ 


Caricter 

en la 
pantalla 


Traducci6n 

en la 
impresora 


Signo escrito en el papel 


Reino 
Unido 


EE.UU 


Francia 


Alemania 


Espa&a 


&A0 
&A2 
&A3 
&A6 
&AE 
&AF 


A 

R 

§ 
i 
! 


&5E 

&7B 

<^?,3 

&40 

&5D 

&5B 


A 

t 
£ 

t 
t 
t 


A 

t 
# 

t 
t 
t 


A 

t 
# 

t 
t 
t 


At 

t 
# 
§ 
t 
t 


A 

R 

t 

6 

i 



t V6ase el manual de la impresora. 

La tabla anterior es un extracto de las traducciones implicitas, que se pueden modificar 
a voluntad. 



Parte 12: Joysticks/paneles de control 



El ordenador puede funcionar con uno o dos joysticks. La mdquima los considera como 
parte del teclado, y por consiguiente su estado se puede determinar con INKEY e INKEY$. 

N6tese que en la mayor parte de los casos, el boton principal de disparo del joystick es 
interpretado como 'DISP.2' por el 464/6128. 

Las funciones JOY(O) y J0Y(1) permiten inspeccionar directamente los dos joysticks. Ca- 
da una de estas funciones genera un resultado, interpretable bit a bit, que informa de la 
situaci6n de los interruptores del joystick en el momento en que se realiz6 la ultima com- 
probaci6n del teclado. 

La tabla siguiente indica los valores generados por los dos joysticks. Ademas de los mime- 
ros de la funci6n JOY, se incluyen los niimeros que se deben utilizar en instrucciones que 
llevan como par^etro los niimeros de las teclas (tales como IIMKEY y KEY DEF). 
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Estado 


Funci6n JOY 


Niimeros de tecla 




Bit que 


Valor 


Primer 


Segundo 


Tecla 


Arriba 


esta a 1 


generado 


joystick 


joystick 


equivalente 





1 


72 


48 


'6' 


Abajo 


1 


2 


73 


49 


•5' 


Izquierda 


2 


4 


74 


50 


'R' 


Derecha 


3 


8 


75 


51 


("yj 


Disparo 2 


4 


16 


76 


52 


'G' 


Disparo 1 


5 


32 


77 


53 


T' 



N6tese que cuando se generan los valores correspondientes al segundo joystick, el ordena- 
dor no puede saber si esos valores ban sido generados por el joystick o por las teclas equi- 
valentes (ultima coliunna de la tabla anterior). Esto representa que se puede utilizar el te- 
clado como sustituto del segundo joystick. 



Parte 13: Organizacion de los dtecos 



El BIOS maneja dos formatos de disco diferentes: formato SISTEMA y formato SOLO 
DATOS. AMSDOS detecta automdticamente el formato cada vez que accede a un disco 
en el que no haya ficheros abiertos. Para permitir esta deteccidn automdtica, en cada for- 
mato los sectpres se numeran de forma diferente. 

Los discos de 3 pulgadas tienen dos caras utilizables, aunque no al mismo tiempo. Cada 
cara puede haber sido inicializada con un formato distinto. 



Comun a ambos formatos: 



Una sola cara Qas dos caras del disco de 3 pulgadas se tratan por separado). 
Capacidad ffsica de cada sector: 512 bytes. 
40 pistas, numeradas del al 39. 
Tamano de bloque de CP/M: 1024 bytes. 
Directorio de 64 reseflas. 
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Formato SISTEMA 

9 sectores por pista, numerados del &41 al &49. 
2 pistas reservadas. 

Es el formato principal, ya que CP/M s61o puede ser cargado con un disco que tenga este 
formato. Las pistas reservadas se utilizan de la siguiente forma: 

Pista sector &41: sector de carga automdtica para CP/M Plus 

Pista sectores &42 a &49: no utilizadas 
Pista 1 sectores &41 a &49: no utilizadas 

N6tese que el formato COMERCIAL es una versi6n especial del formato SISTEMA en 
la que no se graban las pistas reservadas. fete es el formato en que se graban los progra- 
mas que se venden en el comercio. 



Formato SOLO DATOS 



9 sectores por pista numerados del &C1 al &C9. 
Ninguna pista reservada. 



Parte 14: Ampliaciones del sistema 
residentes (RSX) 



En el capftulo 5, al hablar de AMSDOS, ya hemos mencionado las 'drdenes extemas'. 
En esencia, una orden externa es una forma de ampliar el repertorio de BASIC afladien- 
dole instrucciones nuevas, todas las cuales van precedidas del signo I . Las rutinas que lie- 
van a cabo las acdones de las 6rdenes extemas de AMSDOS estin grabadas en la ROM; 
el ordenador realiza todas las operaciones necesarias para hacer accesibles estas drdenes 
cuando entra en BASIC. 

Pero tambi^n es posible incorporar nuevas 6rdenes extemas (cuando BASIC estd ya acti- 
vo) cargando las instmcciones de c6digo de mdquina adecuadas en la RAM. Tales 6rdenes 
extemas son las 'ampliaciones del sistema residentes' (RSX) y actiian exactamente igual 
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que las basadas en la ROM. Las RSX han de ser cargadas desde el disco (o la cinta) cada 
vez que se entra en BASIC. La aplicaci6n habitual de la RSX es el control de perif6ricos 
'inteligentes', tales como lapiceros dpticos o sintetizadores de voz. 

En el capftulo 7 se explica c6mo utilizar las RSX para acceder al segundo banco de 64K 
de memoria del 6128. 



Parte 15: 



El 6128 dispone de 128K de RAM y 48K de ROM del cartucho de sistema. La ROM del 
cartucho de sistema contiene 16K para BASIC, 16K para el firmware general, 16K para 
el firmware de disco, 64K para un juego y 16K reservadas. Como muestra la figura si- 
guiente, esta es la configuraci6n para BASIC 1.1. El 464 s61o se diferencia en que tiene 
64K de RAM. No obstante, el firmware de disco es anulado autom^ticamente. El primer 
banco de 64K de RAM estd dividido nominalmente en cuatro bloques (de 16K cada uno), 
numerados del al 3. La pantalla utiliza el bloque 3; la zona superior del bloque 2 esta 
dedicada a las variables de sistema, segiin se muestra en la figura. 



^'-0QUE3 



BLOQui 



E2 



^'-OQUe , 



etOQu 



PRIMER BANCO 
DE 64K DE RAM 



■Swoo 






S5O00 



''^"■%B"i6' 



SEGUNDO BANCO 
DE 64K DE RAM 




AREA DATOS FIRMWARE 
BLOQUE DE SALTOS 
AREA DATOS BASIC 
AREA DATOS ROM DISCO 
AREA DATOS OTRAS ROM 



Y AREA PARA PROGRAMA DE BASIC 







Nota 1. Depende de ias ROM externas conectadas. Es &A6FC cuando no hay ninguna 

464&6128 S6I0 6128 464&6128 



464&6128 



Mapa de memoria para BASIC 1.1 
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Los caracteres definidos por el usuario estdn inicialmente inmediatamente por encima de 
HIMEM. Este valor se puede modificar mediante una orden MEMORY; ademas se redu- 
ce en 4K automdticamente para crear un tamp6n cada vez que se abre un fichero. El nu- 
mero de caracteres definibles por el usuario (controlado por la orden SYMBOL AFTER 
de BASIC) s61o se puede modificar si HIMEM no ha variado desde la ultima vez que 
aquel fue establecido (o si en esa ocasi6n se estableci6 en cero, con SYMBOL AFTER 
256). Cuando se entra en BASIC, el mimero de caracteres definibles por el usuario se esta- 
blece como si se hubiera ejecutado la orden SYMBOL AFTER 240. 

Por consiguiente, antes de cambiar permanentemente HIMEM, es prudente reducir a cero 

la zona de memoria dedicada a los caracteres definibles; despues se modifica HIMEM y 

finalmente se restablece la zona de caracteres definibles al tamaflo deseado. De esta mane- 

ra los siguientes programas podrdn ejecutar nuevas ordenes SYMBOL AFTER sin pro- 

blemas. 

El siguiente ejemplo ilustra este metodo, aplicado a la carga*de una RSX: 

100 SYMBOL AFTER 256 ' anular memoria para caracteres definibles por el 

usuario 
110 direccionrsx=H1MEM-longitudrsx 
120 MEMORY direccionrsx-1 
130 LOAD "codigrsx",direccionrsx 
140 CALL direccionrsx ' inicializar rsx 
150 SYMBOL AFTER 140 ' restablecer espacio para caracteres definibles 





AREA DATOS FIRMWARE 
BLOQUE DE SALTOS 
AREA DATOS BASIC 
AREA DATOS ROM DISCO 
AREA DATOS OTRAS ROM 
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Otras entradas y salidas 



La mayor parte de las direcciones de puertas de entrada/salida (E/S) esta reservada por 
el ordenador. En particular, las direcciones inferiores a &7FFF no se deben utilizar nunca. 

Esta previsto que la parte de la direccidn representada por A0-A7 refleje el tipo de disposi- 
tivo extemo de E/S, y que las lineas de direccion A8 y A9 puedan ser decodificadas para 
seleccionar registros dentro del dispositivo de E/S. De las restantes lineas, s61o AlO puede 
ser decodificada (a nivel 'bajo'); las lineas All a A15 estan todas a nivel 'alto'. Asi, los 
registros de los dispositivos se pueden direccionar como &F8??, &F9??, &FA?? y &FB??, 
donde ?? puede estar entre DC y FF para los interfaces de comunicacidn y entre EO y FE 
para otros perifericos. 

N6tese que se deben utilizar instrucciones del Z80 que pongan el registro B en la mitad 
superior del bus de direcciones (A15-A8). 



Memorias ROM adicionales 

El sistema operativo esta preparado para seleccionar ROMs adicionales en lugar de parte 
de la ROM interna. La 16gica de gestidn de direcciones y de selecci6n de bancos estara 
en un modulo conectado al bus de expansi6n, pero todas las seflales necesarias estan en 
el corrector de expansi6n. 



Parte 16: Emulador de console de CP/M 



Plus 



En la parte 1 de este capitulo hemos dado xma tabla de caracteres de control con la des- 
cripcidn de sus efectos. Tales efectos son los que se producen cuando se envian los caracte- 
res a la pantalla de texto desde BASIC. Estas acciones ban sido elegidas con los criterios 
de sencillez y de conseguir que ilustren algunas de las funciones disponibles en el bloque 
de 'Text VDU' (pantalla de texto) del firmware. Estas funciones son peculiares de los or- 
denadores Amstrad, y por lo tanto los programas deben ser amoldados a ellas. 

En el contexto de las aplicaciones comerciales que se programan para CP/M Plus, es nor- 
mal esperar que los ordenadores dispongan de ciertas funciones estdndar de control de 
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la pantalla de texto, de modo que los programas scan fdcilmente "trasladables" de una 
mdquina a otra. La implementaci6n de CP/M Plus en el CPC6128 incluye un emulador 
de consola que proporciona funciones de control similares a las del terminal Zenith 
Z19/Z29. El procedimiento de instalaci6n de los programas escritos para CP/M Plus in- 
cluiri normalmente una opci6n para terminales de este tipo. 

Entre las funciones incorporadas en el emulador de consola de CP/M Plus se encuentran 
muchas de las antes ofrecidas en el grupo 'Text VDU' del firmware, aunque con diferentes 
c6digos de control. Pero en CP/M Plus se dispone de un niimero considerable de opera- 
ciones nuevas y mds complejas. 

Los caracteres del margen de &20 a &FF se exhiben en la pantalla en la posici6n actual 
del cursor. Ademds, si el ciu-sor no esti en la ultima columna, se lo desplaza una posici6n 
a la derecha; si el cursor estd en la ultima columna y estd activada la continuidad de las 
lineas, se lo coloca en la primera columna de la linea siguiente, desplazando la pantalla 
hacia arriba si es necesario. 

Los caracteres del margen de &00 a &1F se interpretan como c6digos de control, segiin 
la siguiente tabla: 



607 BEL Produce un pitido. 

608 BS Retroceso del cursor. Mueve el cursor xma posicion hacia la izquierda. 

Si el cursor estd en la primera colunma (pero no en la primera fila) y 
estd activada la continuidad de las h'neas, se lo coloca en la ultima co- 
lumna de la fila anterior. 

&0A LF Avance de h'nea. Se baja el cursor a la linea siguiente, desplazando la 
pantalla hacia arriba si es necesario. 

&0D CR Retomo del carro. Lleva el cursor a la primera colunma de la fila actual. 

Se ignoran todos los demds c6digos de control. 



El emulador de consola reconoce las siguientes secuencias de 'escape'. Todds los demds 
caracteres son exhibidos en la pantalla (con el consiguiente avance del cursor) aunque va- 
yan precedidos del c6digo de escape. Gracias a esta caracteristica es posible enviar a la 
pantalla los caracteres visibles correspondientes a los c6digos de control del &00 al &1F. 
(Obs6rvese, no obstante, que en muchas aplicaciones se reinterpreta el c6digo de control 
&09 (TAB) para que signifique cierto mimero de espacios; en tales casos la secuencia 
[ESC] [TAB] no visualizard el cardcter &09.) 
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[ESC]0 Desactiva la linea indicadora de estado. Los mensajes del sistema de dis- 

co aparecen en la pantalla principal, en la cual puede utilizar tambien la 
liltima linea. 

[ESC]1 Activa la linea de estado. Los mensajes del sistema de disco aparecen en 

la ultima Unea de la pantalla. 

[ESC]2n Selecciona mi juego de caracteres (v6ase la parte 16 de este capitulo). n 

es el par^etro selector de idioma, que se enmascara con &07. La acci6n 
consiste en intercambiar ciertas matrices de caracteres del margen de &20 
a &7F con otras del margen de &80 a &FF; es muy similar a la que se 
realiza con impresoras que disponen de varios juegos de caracteres selec- 
cionables por programa. 

n=0 EE.UU. 
n = l Francia 
n-2 Alemania 
n=3 Reino Unido 
n=4 Dinamarca 
n=5 Suecia 
n=6 Italia 
n=7 Espaiia 
[ESC]3 m Selecciona el modo de pantalla. m=modo+&20. El valor se enmascara 
con &3 para limitarlo al margen de a 2. El modo 3 se ignora. Se borra 
la pantalla, pero no se modifica la posici6n del cursor. 

[ESC]A Cursor arriba. Si ya estd en la primera linea, ningiin efecto. 

[ESC]B Cursor abajo. Si ya estd en la ultima linea, ningiin efecto. 

[ESC]C Cursor a la derecha. Si ya estd en la ultima columna, ningiin efecto. 

[ESC]D Cursor a la izquierda. Si ya estd en la primera columna, ningiin efecto. 

[ESC]E Borrar pagina. La posici6n del cursor no se modifica. Esta secuencia bo- 

rra la pdgina entera, aunque se haya seleccionado el modo de 24x80. 
. (Hay otros codigos de escape que s61o afectan al drea 24x 80 cuando estd 
seleccionado este modo.) 

[ESC]H Cursor a la posici6n inicial. Lleva el cursor a la primera columna de la 

primera fila. 

[ESC]I Retroceso de linea. Sube el cursor a la linea anterior, desplazando la pan- 

talla hacia abajo si es necesario. 
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[ESC] J Borrar hasta el final de la pagina (incluido el caracter que estd en la posi- 

cion del cursor). No se modifica la posicion del cursor. 

[ESC]K Borrar hasta el final de la b'nea (incluido el caracter que esta en la posi- 

ci6n del cursor). No se modifica la posicion del cursor. 

[ESC]L Insertar linea. La linea en la que esta el cxu-sor y todas las siguientes se 

desplazan hacia abajo; se borra la linea del cursor; la posicion de este 
no se modifica. 

[ESC]M Suprimir linea. La linea en la que esta el cursor se pierde; todas las si- 

guientes se desplazan hacia arriba; se borra la ultima linea; la posicion 
del cursor no se modifica. 

[ESC]N Suprimir caracter. Todos los earacteres que estan a la derecha del cursor, 

en su misma Unea, se desplazan una posicion hacia la izquierda. El carac- 
ter de la ultima columna queda en bianco. 

[ESC]Y/ c Lleva el cursor a la posici6n especificada. Si esa posicion sobrepasa al- 
giin borde de la pantalla, el cursor se queda en el borde correspondiente. 
/= linea +&20; c= columna -I-&20. El extremo superior izquierdo es linea 
0, columna 0. 

[ESC]b pc Establece color de pluma. Afecta a todos los earacteres presentes en la 
pantalla. El parametro de color, pc, se enmascara con &3F y luego se 
lo interpreta como tres mimeros de 2 bits que especifican las intensidades 
de los tres colores primaries: los bits y 1 para el azul, los bits 2 y 3 para 
el rojo y los bits 4 y 5 para el verde. El 464/6128 proporciona tres niveles 
de intensidad, que se especifican de la siguiente forma: 

464/6128 Intensidad nula Intensidad media Intensidad m^ma 



Bits para 
cada color 



00 (binario) 01 o 10 (binario) 



11 (binario) 



[ESC]c pc Establece color de fondo. Afecta tanto al fondo como al borde de la pan- 
talla. Los colores se especifican como en la secuencia anterior. 

[ESC]d Borrar desde el principio de la pagina (hasta la posicion del cursor inclu- 

sive). No se modifica la posicion del cursor. 

[ESC]e Activa el cursor. Para evitar el molesto parpadeo que de otra forma se 

produciria, el cursor esta inhibido durante la escritura normal del texto 
y solo se lo activa una decima de segundo despues de escribir el ultimo 
cardcter. 
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[ESC]f Inhibe el cursor. 

[ESC]j Almacenar la posici6n del cursor. 

[ESC]k Restablecer la posicion del cursor almacenada por [ESC]j. 

[ESC]1 Borrar li'nea. No se modifica la posici6n del cursor. 

[ESC]o Borrar desde el principio de la linea (hasta la posicion del cursor inclusi- 

ve). No se modifica la posici6n del cursor. 

[ESC]p Activar el modo de imagen invertida ('video inverse'). Los caracteres vi- 

sibles se escriben con los colores de fondo y pluma invertidos. 

[ESC]q Desactivar el modo de imagen invertida. 

[ESC]v Activa la continuidad de las lineas. Cuando los caracteres enviados a la 

pantalla sobrepasan la ultima columna de una linea, siguen apareciendo 
al principio de la linea siguiente. 

[ESC]w Desactiva la continuidad de las lineas. Cuando los caracteres enviados 

a la pantalla sobrepasan la ultima columna de una linea, se los ignora. 

[ESC]x Activa el modo 24x80. Algunos programas requieren la pantalla estan- 

dar de 24 filas por 80 columnas. Esta secuencia selecciona esa pantalla, 
independientemente de cual sea el tamaflo total de la pantalla (que de- 
pende de la mdquina), del pais y de si la linea de estado esta activada o 
desactivada. Se borra la pantalla. 

[ESC]y Desactiva el modo 24x80. Se borra la pantalla. 



Parte 17: Juego de caracteres de CP/M 
Plus 



En la parte 10 de este capitulo hemos descrito una tabla de traduccion para impresoras. 
El fin de esta tabla es convertir algunos caracteres del juego de BASIC a una forma tal 
que puedan ser escritos por la impresora cuando en ella se ha realizado cierta selecci6n 
de idioma. Esta funcion esta limitada por el hecho de que pocos de los caracteres interna- 
cionales de las impresoras aparecen en el juego de caracteres de BASIC. 
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Aunque este mftodo sigue funcionando en CP/M Plus, se lo ha ampliado hasta permitir 
una correspondenda casi absoluta entre los caracteres visibles en la pantalla y los de la 
impresora. (El cardcter visible que falta es el signo monetario sueco, que deberia figurar 
en lugar de '$'.) La distribuci6n de caracteres por idiomas es la siguiente: 

23 24 40 SB 5C 5D 5E 60 7B 7C 7D 7E 




Juego internadonal de caracteres de CP/M Plus 

Para adaptar la miquina a un idioma determinado se debe hacer lo siguiente: 

1. Seleccionar el idioma en la impresora (generalmente mediante microconmutadores 
basculantes, aunque en algunas impresoras la selecci6n se puede realizar por programa 
envidndole c6digos de control). 

2. Invocar el juego de caracteres deseado, bien mediante la orden transitoria 

LANGUAGE n 
bien enviando la secuencia 

[ESC121 
al emulador de consola. 
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En la prdctica, esta inicializaci6n se suele programar en el procedimiento PROFILE.SUB 
mediante las funciones LANGUAGE y SETKEYS. El CP/M Plus se suministra con el jue- 
go de caracteres numero (EE.UU.) preseleccionado, ya que en la tecla del '3' estd graba- 
do el signo '#'. 



Jirogos de caracteres de 7 bits 

Por litil que sea esta posibilidad de seleccionar juegos de caracteres, debemos resaltar que 
los caracteres estdndar (EE.UU.) reemplazados por caracteres de otros idiomas dejan de 
ser visualizables. Esto es inevitable cuando se manejan juegos de caracteres de 7 bits. 
Practicamente todos los programas disponibles para CP/M Plus (incluidos casi todos los 
programas de ayuda y los procesadores de texto) trabajan con un juego de caracteres de 
7 bits. En el Reino Unido se acepta que el signo '#' desaparezca para ser sustituido por 
el •£', no s61o en proceso de textos, donde es deseable, sino tambi^n en los listados de 
programas, v.g. LIST £8, donde no lo es. Con el tiempo el usuario llega a habituarse a 
hacer mentalmente la transformaci6n de un signo a otro. 

Pero en otros idiomas los cambios son m&s perturbadores. Los signos nuevos reemplazan 
caracteres tan necesarios como la barra vertical y los corchetes. A pesar de la mejora de 
la legibilidad de los textos gracias a los acentos, en las situaciones en las que el programa 
requiere la barra y los corchetes (por ejemplo, DIR [ALU la legibiUdad queda notable- 
mente reducida. Lo mismo se puede decir de la facilidad de escritura, si se ban cambiado 
algunas teclas para adaptarlas al nuevo juego de caracteres. 

Recuerde que los programas trabajan con c6digos ASCII y son totalmente indiferentes 
a la forma que puedan tener los caracteres en la pantalla. Lo que ocurre con los juegos 
de caracteres de 7 bits es, sencillamente, que no hay c6digos suficientes para cubrir todas 
las necesidades. 
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Juegos de caracteres de 8 bits 

El juego de caracteres de BASIC tiene 256 simbolos diferentes; los c6digos del 128 al 255 
(&80 a &FF) representan diversos simbolos grdficos de aplicacion en programas de juegos 
e informdtica dom&tica. En CP/M Plus tambien hay 256 caracteres, pero los 128 liltimos 
son distintos de los de BASIC; estdn diseiiados para aplicaciones comerciales y para la 
generaci6n de juegos especificos por idiomas: 

0123456789ABCDEF 0123456789ABCDEF 

fi©r&8K^£|iil||SS 8 ■•■MlllMlllMltli 

1 KBSSc&j^ifiiiaillgB 9 ■■■■■■■■liBllIsM 

2 I "»*x« * iiiiiiii A illtglliiikiiMii 

3 @Kss<iiiiiiiiiili B •siaiiMiiieiiiii 

4 efiBc&iiiiiiiiiiB c ■iiiittiiaiiitii 

5 psisf ■iMiMiiiiii D ■iiissiiBiiiiiii 

6 ^ ab e^ lililillllS ^ i t lislil t f i t Its! 

7 ■■iiimaiiiiiiiie F iililiisiiSliiii 

Caracteres del al 127 (&00 a &7F) Caracteres del 128 al 255 (&80 a &FF) 

Juego de caracteres esttodar (EE.UU.) de CP/M Plus 



Los programals capaces de trabajar con juegos de caracteres de 8 bits disponen de este jue- 
go completo y podrdn acceder a los caracteres especiales de todos los idiomas, sin encon- 
trar los problemas que describiamos en la secci6n anterior. 

En la actualidad hay muy pocos programas preparados para trabajar con juegos de carac- 
teres de 8 bits. Los caracteres de los mdrgenes de a 31 y de 128 a 255 tendrdn el aspecto 
que se muestra en la figura anterior solamente en la pantalla. En la impresora serin distin- 
tos, pues los fabricantes de impresoras tienen sus propias ideas sobre el diseiio de juegos 
de caracteres. 
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Capitulo 7 

Mas sobre el gestor de bancos de 
memoria 



Utilizacion por BASIC del segundo banco de 64K de RAM. Este capitulo 
solo concierne al 6128. 

Temas tratados: 

* Almacenamiento de imagenes de pantalla 

* Pseudoficheros 

El mapa de memoria de BASIC 1.1 que vimos en el capitulo anterior, parte 14, muestra 
que BASIC no utUiza 64 de los 128K de RAM. BASIC y el firmware residen en una ROM; 
si a esta se aiiade la ROM del sistema de disco, resulta que la memoria utilizable desde 
BASIC es 112K en total (64K de RAM y 48K de ROM). 

Cada seccion de 16K es un 'bloque'; un grupo de 4 bloques (64K) es lo que se denomina 
'banco'. La tecnica de selecci6n de bloques se llama, pues, 'conmutacidn de bancos'. 

El microprocesador Z80 no puede direccionar, en un momento dado, mas de 64K. Por 

esa razon el sistema operativo estd preparado para utUizar la ROM del firmware en lugar 

del bloque de RAM, o las ROM de BASIC o del sistema de disco en lugar del bloque 

3 de RAM. Esta conmutacion se realiza automaticamente cada vez que se deben ejecutar 

rutinas de BASIC o del firmware. 

Pues bien, la selecci6n de bancos de RAM no es mds que una generalizacion de este meto- 

do. La conmtitacion la realiza un programa escrito en ensamblador. 

En la cara 1 del juego de discos del sistema se incluye el programa BANKMAN.BAS. 

Este programa se ejecuta desde BASIC; su objeto es instalar la RSX que proporciona las 

6rdenes extern£is de gestidn de bancos. 

Una aplicaci6n del segundo banco de 64K es el almacenamiento temporal de imdgenes de 

pantalla; por ejemplo, en un programa 'diseiiador de pantallas' que almacene varias pan- 

taUas diferentes, o un videojuego que tenga preparadas varias pantallas para mostrarlas 

inmediatamente cuando las necesite. 
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Otra apUcaci6n del segundo banco de 64K es la ampliaci6n del espado dedicado a las va- 
riables; este espado adidonal se puede considerar como ampliad6n del espado reservado 
a las matrices literales o como "disco de RAM" ('Ramdisc'). 



Parte 1: Almacenamiento de imagenes 
de pantalla 



El gestor de bancos puede 'desconectar' el bloque 1 de RAM y poner en su lugar uno cual- 
quiera de los cuatro bloques de 16K de que consta el segundo banco. La figura siguiente 
muestra en qu6 consiste esta conmutaci6n. Observe que los cuatro bloques del segundo 
banco estdn todos en el mismo grupo de direcdones, de &4000 a &7FFF. El contenido 
del bloque 1 (normalmente ocupado por instrucciones de BASIC) no se pierde, sino que 
es restaurado cuando el gestor de bancos termina su trabajo. Ademds de las cinco conmu- 
taciones de bancos Uustradas en la figura, hay otras tres posibles, pero s61o se las utiliza 
en CP/M. 




Comnataddii de bancos por hardware 
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El gestor de bancos dispone de dos ordenes externas con las que se pueden transferir pan- 
tallas completas de un bloque a otro; estas ordenes conmutan automdticamente los blo- 
ques 4 a 7 cuando es necesario y dejan restablecido el bloque 1. 

La orden 

!SCREENSWAP,[secc/6n-de-panta//aJnumero-cte-panta//a^umero-de-panta//a 

intercambia el contenido de dos bloques, mientras que 

!SCREENCOPY,fsecci6n-de-panta//aJ/iumero-de-pantaHa-destino, 

numero-de-panta/la-fuente 

copia el contenido de un bloque en otro. 

El pardmetro opcional secc/dn-de-panta/fe hace que la transferencia de informaci6n se 
realice por tramos de 1/64 de pantalla (256 bytes del total de 16K). Asi pues, el pardmetro 
puede tener cualquier valor comprendido entre y 63. Este metodo de operacidn es util 
cuando se necesita mezclar alguna otra tarea con la de transferencia de pantallas. El tiem- 
po de ejecuci6n de un intercambio de pantallas es de aproximadamente 150/300 segundos 
(150 unidades de la variable TIME). 

Los numeros-de-pante/la son numeros cualesquiera del margen de 1 a 5. (La pantalla 1 
es la visible.) Las operaciones de copia e intercambio en las que interviene la pantalla 1 
son mucho m^ rdpidas que las otras. Tenga cuidado con el efecto de 'desplazamiento ver- 
tical por hardware', que ya puede haber experimentado al trabajar con volcados de panta- 
lla. Se debe procurar que todas las imdgenes de pantalla se construyan (y visualicen) con 
la pantalla 1 en la misma posici6n de hardware. La posici6n mds sencilla es la establecida 
por una orden MODE. 

Ejemplos de transferencias de pantallas 

Cargue y ejecitte el programa BAN KM AN con la orden 

RUN "BANKMAN" 
Escriba 

M0DE1 
con lo que se borra la pantalla. 
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Ahora escriba 

' Esta es la pantalla original 

I SCREENCOPY,3,1 'Pantalla original va a la memoria 3 

CLS 

La pantalla se ha vuelto a borrar. Escriba ahora 

' Esta es la pantalla intermedia 

I SCREENC0PY,2,1 'Pantalla intermedia va a memoria 2 
!SCREENSWAP,2,3 'Intercambia memories 2 y 3 
ISCREENC0PY,1,3 'Recupera pantalla intermedia desde memoria 3 
I SCREENSWAP,2,3 'Recupera pantalla original desde memoria' 2 

Al final del capitulo 9 damos un complete programa 'diseiiador de pantallas' que utiliza 
las funciones de transferencia de pantallas proporcionadas per el gestor de bancos. 
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Considerado come 'RAMdisc', el segxindo banco de 64K de RAM se puede organizar en 
forma de fichero, con cierto niimero de registros de longitud fija. La longitud de registro 
puede ser de entre y 255 bytes, si bien 2 bytes es el minimo recomendable. Una vez esta- 
blecida la 'longitud de registro', cada registro es accesible para operaciones de escritura 
y lectura por su 'niimero de registro'. Es perfectamente posible escribir en un fichero de 
RAM con una longitud y luego leer con otra distinta. 

Nota. El fichero de RAM solo puede contener datos; no esta prevista su utilizacion para 
almacenar instrucciones de programa. 

Al igual que en los sistemas de ficheros de acceso aleatorio en disco, aqui existe tambi^n 
el concepto de 'mimero de registro actual'. Este niimero se mantiene siempre actualizado, 
y es litil, por consiguiente, cuando se recorre el fichero avanzando automaticamente de 
cada registro al siguiente. 

La orden 

1 BANKOPEN,/ongrtucf-de-reg/stro 

establece la longitud de registro e inicializa el 'niimero de registro actual' (a 0), pero no 
borra memoria. 
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La orden 

! BANKWRITE,@c6d/go-generado^xpres/6n-//tera/f/7umero-cte- registro] 

escribe la expresidn-literal en el fichero. El numero-de-registro especifica en que registro 
se debe escribir. Si se omite este parametro, se escribe en el niimero de registro actual. 
Finalmente, se actualiza este niimero (sumdndole 1). 

Si la expresidn-literal no llena el registro, los caracteres antiguos sobre los que no se ha 
escrito seguiran estando en el registro. Si la expresidn-literal es demasiado larga, se igno- 
ran los caracteres restantes para no 'corromper' el registro siguiente. 

El c6d/go-generado es una variable entera a traves de la cual se puede conocer, al concluir 
la operacion, el numero de registro en el que se ha escrito (si la escritura se ha realizado 
con exito) o un numero de error (negativo) si la escritura ha fracasado: 

- 1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el final 

de los 64K) 
-3 indica un error de conmutaci6n de bancos (no deberia ocurrir nunca) 

Ejemplos: 

I BANKOPEN,10 

IBANKWRITE,@r%,"123 pruebas",0 
I BANKWRITE,@r%,w$ 

La orden 

IBANKREAD^ddigo-generado,variab/e-/itera/f^ijmero-de-reg/stroJ 

lee un registro y asigna su contenido a la variable-literal. 

El numero-de-registro especifica en que registro se debe leer. Si se omite este pardmetro, 
se lee en el numero de registro actual. Finalmente, se actualiza este numero (sumdndole 1). 

Si el contenido 'del registro no llena completamente la variable-literal, los caracteres anti- 
guos sobre los que no se ha escrito seguiran estando en la variabte-Zftera/. Si el contenido 
del registro es mas largo que la variable-literal, se ignoran los caracteres restantes, ya que 
no es posible aumentar la longitud de la variable mediante una orden externa. 
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El cddigo-generado es una variable entera a trav6s de la cual se puede conocer, al concluir 
la operaci6n, el numero de registro en el que se ha leido (si la lectura se ha realizado con 
6xito) o un numero de error (negativo) si la lectura ha fracasado: 

- 1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el Hnal 

de los 64K) 
-3 indica un error de conmutaci6n de bancos (no deberia ocurrir nunca) 

Ejemplo: 

IBANKREAD,@r%,i$,0 



Busquedas 



Se puede recorrer el fichero en busca de un dato determinado. 
La orden 

IBANKFIND,@cdd(go-generado,cadena-buscada[/)umero-de-reg/stro-/n/c/a/ 

[/lumero-de-registro-f/na/JJ 

examina los registros especificados. El nOmero-de-registro-inicial especifica el registro a 
partir del cual debe comenzar la busqueda. Si se omite este pardmetro, se toma por defec- 
to el numero de registro actual. 

La busqueda continua, a saltos de longitud-de-registro, hasta que se encuentra la cadena 
o hasta que se agotan los 64K. 

Si se especifica el numero-de-registro-final, la busqueda termina cuando se ha examinado 
ese registro (a menos que se haya encontrado la cadena antes). 

Si la busqueda concluye con £xito, el 'numero de registro actual' apunta al registro donde 
se ha encontrado la cadena; si no, sigue teniendo el valor anterior. 

El cddjgo-generado es una variable entera que contiene, al terminar la operaci6n, infor- 
maci6n sobre c6mo se ha desarrollado £sta. Si ha concluido con 6xito, contiene el numero 
de registro en el que encontrd la cadena; si no, contiene un numero negativo que es un 
c6digo de error: 

- 1 Fin del fichero. El numero-de-registro-inicial sobrepasa el final de los 64K, o bien 

es mayor que el nOmero-de-registro-final . 
-2 No se ha encontrado la cadena buscada. 
-3 Error de conmutacidn de bancos (no deberia ociurir nunca). 
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Lacadena-buscada puede contener sfmbolos comodin, que en este caso son caracteres nii- 
mero 0, chr$(0). El numero de caracteres que intervienen en las comparaciones es igud 
a la hngitud-de-regis^o o a la longitud de la cadena-buscada , el m^ corto de los dos. 

Ejemplos: 

IBANKFIND,@r%,"123 pru",0 
I BANKFIND,@r%,f$,100,200 

Cuidado con los errores 



Los errores obvios, tales como poner demasiados pardmetros, son detectados e identifica- 
dos como Bad Command. Sin embargo, el mecanismo de las 6rdenes extemas no permi- 
te detectar errores del tipo Type mismatch, por lo que el usuario debe cerciorarse de que 
estd utilizando pardmetros de la forma correcta. 

El siguiente programa utiliza las 6rdenes de RAMdisc para examinar una base de datos 
que contiene permutaciones de letras formadas con palabras de 7 letras. Busca concordan- 
cias y permite utilizar simbolos comodin. 

Por ejemplo, las permutaciones de la palabra CENTRAL que concuerdan con 7NACE?? 
(puede omitir los dos liltimos simbolos 77) son TNACERL, TNACELR, RNACETL, 
RNACELT, LNACETR y LNACERT. 

Se tarda bastante en crear la base de datos, pero es que 64K es mucha memoria. 

10 'REVUELTO DE LETRAS. por ROLAND PERRY 

20 ' copyright (c) AlViSOFT 1966 

30' 

40 'No Divide RUN "BANKIVIAN" antes de ejecutar este programa 

50 'it************************************************* 

60' 

70 iVlODE 2 

80 DEFilMT a-z 

90 r%=0: ! BANK0PEN,7 

100 INPUT' Que paiabra de 7 ietras quiere revoivei":s$ 

110 IF LEN{s$)<>7 THEN 100 

120 PRINT' Por favor, espere un rato." 

130 LOCATE 1,5:PRiNT'Sigo trabajando:" 

140 FOR c1=1 TO 7 

150 FOR c2=1 TO 7 

160 IF c2=c1 THEN 370 
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170 FOR c3=1 TO 7 

180 IF c3=c2 OR c3=c1 THEN 360 

190 FOR c4=1 TO 7 

200 IF c4=c3 OR c4=c2 OR c4=c1 THEN 350 

210 FOR c5=1 TO 7 

220 IF c5=c4 OR c5=c3 OR c5=c2 OR c5=c1 THEN 340 

230 FOR c6=1 TO 7 

240 IF c6=c5 OR c6=c4 OR c6=c3 OR c6=c2 OR c6=c1 THEN 330 

250 FOR c7=1 TO 7 

260 IF c7=c6 OR c7=c5 OR c7=c4 OR c7=c3 OR c7=c2 OR c7=c1 THEN 320 

270o$=MID$(s$,c1,1)+MID$(s$,c2,1)+MID$(s$,c3,1)+MID$(s$,c4,1) 

+MID$(s$,c5,1)+MID$(s$.c6,1)+MID$(s$,c7.1) 
280 LOCATE 18,5:PRINT x;o$ 
290 I BANKWRITE,@r%,o$ 
300 IF r%<0 THEN STOP 
310 x=x+1 
320 NEXT c7 
330 NEXT c6 
340 NEXTcS 
350 NEXT c4 
360 NEXT c3 
370 NEXT c2 
380 NEXT c1 
390 ultimoreg=r% 
400 REM ahora vamos a buscar 
410 r%=0:g$=SPACE$(7) 
420 PRINT:INPUT'Que subpalabra quiere buscar (puede escrlbir 7 como 

simbolo comodin) ",m$ 
430 m$=LEFT$(m$.7) 
440 FOR x=1 TO LEN(m$) 

450 IF MID${m$,x,1)="?"THEN MID$(m$,x,1)=CHR$(0) 
460 NEXT 

470 IBANKFIND,@r%,m$,0,ultimoreg 
480 IF r%<0 THEN 420 
490 !BANKREAD,@r%,g$ 
500 PRINT g$, 

510 ! BANKFIND,@r%,m$,r%+1,ultlmoreg 
520 GOTO 480 
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Capitulo 8 

Cuando usted guste 



En este capitulo vamos a dar un repaso a ciertas cuestiones bdsicas de in- 
formdticq en general y del 464/6128 en particular. No es imprescindible 
leer este capitulo para trabajar con el ordenador, peropuede ayudarle a en- 
tender algo de lo que estd ocurriendo en su interior. 



Parte 1: En terminos generales 



jFulmina el bichof 



Aun cuando lo unico que le interese de su 464/6128 sea disfrutar de los sofisticados juegos 
de ordenador que se venden en las tiendas, es posible que se pregunte que tiene la maquina 
dentro, es decir, que es eso del hardware. 

Hardware es lo que usted puede coger y Uevarse bajo el brazo (es un decir): la caja gris 
donde esta el teclado, el monitor, los cables, etc. Mas en general, todo lo que no sea espe- 
cificamente software: programas, manuales e informacion grabada en cinta o en disco. 

Ciertos aspectos del funcionamiento del ordenador estan estrechamente ligados al hard- 
ware; por ejemplo, la imagen de color que usted puede ver en la pantalla. En cambio, es 
responsabilidad del software controlar el hardware para producir los caracteres y dibujos 
deseados. 

Es el hardware el que dirige el haz de electrones a la superficie electroluminiscente de que 
esta recubierto el interior del tubo del televisor; el software aporta la organizacion y la 
inteligencia para decir al hardware c6mo y cuando debe hacerlo. Aiiade ademas el control 
de los tiempos y de las secuencias de acciones para que usted pueda ver la nave espacial 
despegando, o para algo tan mundano como que aparezca una letra en la pantalla cada 
vez que usted pulsa una tecla. 
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iPor que es un ordenador mejor que otro? 

EI hardware sin el software es completamente inutil, y viceversa. El ordenador empieza 
a servir para algo cuando hardware y software se ponen de acuerdo para llevar a cabo 
sus cometidos. Hay algunas consideraciones b^icas que se pueden tener en cuenta para 
valorar la calidad tanto de uno como del otro. 

Los puntos de referenda generalmente aceptados para los ordenadores personales son: 

1. Resolucidn de la pantalla: tamafio del mendr 
elemento discernible 

El concepto de resoluci6n es una mezcla de diversos factores: niimero de colores disponi- 
bles para el programador, niimero de dreas discemibles en la pantalla (pixels) y numero 
de caracteres de texto que caben en ella. 

Usted puede comprobar que su 464/6128 es superior a este respecto a los otros ordenado- 
res de su nivel de precio. 

2. El interprete de BASIC 

Prdcticamente todos los ordenadores dom&ticos incluyen un interprete de BASIC que 
permite al usuario crear programas con los que controlar el hardware. El lenguaje de pro- 
gramaci6n que viene con la mdquina, BASIC, no es mis que un programa, pero un pro- 
grama extremadamente complejo que ha evolucionado a lo largo de los aiios, desde que 
se *invent6' el BASIC en los Estados Unidos. El 'Beginners' All-purpose Symbolic Ins- 
truction Code' (c6digo de instrucciones simb61icas de uso general para principiantes) es 
el lenguaje de ordenador mis ampUamente utilizado en el mundo entero; como todos los 
lenguajes, tiene sus dialectos locales. 

La versi6n utilizada en el 464/6128 es una de las de mayor compatibilidad. Es una versidn 
muy ripida de BASIC, lo que quiere decir que realiza los calculos muy deprisa. A usted 
quizi no le parezca demasiado impresionante que un ordenador tarde O.OS segundos en 
multipUcar 3 por 5 y escribir la respuesta, mientras que otro ordenador tarda 0.075 segun- 
dos en hacer lo mismo. Pero cuando se trata de dibujar grificos en la pantalla, tarea que 
puede requerir millares de cilculos repetitivos, la diferencia entre 0.05 y 0.075 segundos 
es decisiva. 

Usted oiri hablar frecuentemente de 'codigos de maquina'. El c6digo de miquina es una 
forma de suministrar instrucciones directamente al microprocesador. La velocidad de eje- 
cucidn es entre 5 y 15 veces mayor en cddigo de mdquina que en BASIC, pero el tiempo 
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que se tarda en escribir un programa puede ser hasta 50 veces mayor en cddigo de mdqui- 
na que en BASIC. 

El BASIC de Amstrad es de los mas rdpidos y completes que se pueden encontrar en orde- 
nadores personales, e incorpora muchos recursos que ayudan al programador experto a 
superar parte de la lentitud inherente a todos los lenguajes de alto nivel para producir 
efectos visuales y sonoros sorprendentemente dindmicos. 

3. Ampliabilidad 

Casi todos los ordenadores prestan atenci6n a la necesidad de conectar perif^ricos tales 
como impresoras, joysticks y unidades de disco. Sin embargo, muchos de los mis popula- 
res ordenadores domesticos necesitan interfaces extemos para que se les pueda conectar 
una simple impresora o un joystick. 

El comprador no siempre prev6 las necesidades futuras, pero un ordenador que incorpore 
un interfaz para impresora o un conector para joystick puede ser mis barato a la larga 
que otro por el que tenga que pagar menos en el momento de la adquisici6n. 

El 464/6128 tiene incorporada una puerta de salida para impresora (tipo Centronics), una 
salida para segunda unidad de disco (s61o 6128), un conector para dos joysticks, una sali- 
da de sonido estereof6nico y una puerta de expansi6n a la que se puede conectar un inter- 
faz serie, un modem, un sintetizador de voz, etc. 

4. Sonidos 

Las caracteristicas sonoras de un ordenador determinan si 'suena a lata' o si puede produ- 
cir una imitacion aceptable de un instrumento musical electr6nico. 

El 464/6128 estd dotado de un generador de sonido de 3 canales y 8 octavas, que puede 

dar una calidad musical muy aceptable y permite el control complete de las envolventes 

de tono y de vblumen. Ademis, el sonido se puede obtener en una configuracion estereo- 

f6nica, con canal izquierdo, canal derecho y canal comun. 

Esto permite programar el sonido para coordinarlo con el movimiento de objetos por la 

pantalla. 

En ultimo extremo, es usted quien tiene que decidir qui caracteristicas le son mis necesa- 

rias. Esperamos que las pruebe todas, para asi aprovechar al miximo su ordenador. 
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^Por que no puede? 

Sabiendo lo poderosa que es la tecnologia actual, los usuarios se preguntan frecuentemen- 
te por que una mdquina tan avanzada como el 464/6128 es incapaz de imitar las imdgenes 
de un televisor de color. Por ejemplo, ipor que no puede un ordenador mostrar en la pan- 
talla la imagen de una persona caminando con naturalidad? ^Es que los ordenadores no 
son capaces de dar movimiento mds que a unos burdos monigotes? 

La respuesta es fdcil, aunque compleja. No crea usted que la pantalla de su ordenador 
puede tener la misma riqueza de detalles que la de un televisor. Los televisbres funcionan 
con una informaci6n 'anal6gica', que puede describir, con resoluci6n casi ilimitada, todos 
los grados posibles de intensidad de todos los colores del espectro visible. En terminos in- 
formaticos, esto representa que la 'memoria' necesaria para almacenar una imagen de te- 
levision es unas veinte veces mayor que la que se le dedica a un ordenador domestico. 

Pero esto es solo una parte del problema. Para dar movimiento a una imagen, hay que 
procesar toda esa informacion a gran velocidad (del orden de 50 veces por segundo). No 
es imposible, pero para ello se necesitan mdquinas que cuestan unos cuantos miles de ve- 
ces mds que un ordenador domestico, al menos en la actualidad. 

Hasta que el precio de la memoria de alta capacidad baje drasticamente (lo que ocurrird 
algiin di'a), los ordenadores pequeflos tienen que arreglarselas con una memoria relativa- 
mente pequefia para controlar la pantalla, lo que representa menor resolucion y movi- 
mientos mds espasticos. Optimizando el hardware y el softaware se puede paliar conside- 
rablemente estas limitaciones, pero de momento tendremos que seguir conformandonos 
con imagenes torpes que ni siquiera Uegan a parecerse a las de una pelicula de dibujos ani- 
mados de regular calidad. 



Ese teclado me suena 



iPor que no puedo sentarme ante el ordenador y escribir una sencilla pdgina de texto? 

No se deje enganar por el hecho de que el ordenador se parece a una maquina de escribir 
electr6nica con pantalla. La pantalla no es una hoja de papel electrdnico: es una 'consola 
de 6rdenes', expresion tecnica que quiere decir que es una via de comunicacion entre el 
usuario y el lenguaje de programacidn que esta en la memoria de la maquina. 

Mientras no se le mande otra cosa, el ordenador tratara de entender todo lo que se le co- 
munique a traves del teclado, pues supone que son instrucciones. Cuando usted pulsa 
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[RETURN], el ordenador examina lo tecleado; si no es inteligible para el BASIC residen- 
te, lo rechaza y emite el mensaje: 

Syntax error 

Ahora bien, puede ocurrir que el programa actualmente presente en la memoria sea un 
procesador de textos; en tal caso usted podrd escribir las palabras que desee, pulsar [RE- 
TURN] y seguir escribiendo a sus anchas, exactamente igual que si el ordenador fuera una 
maquina de escribir que utilizara papel electr6nico. Pero, para que esto sea posible, antes 
se debe haber cargado en la memoria un programa de proceso de textos. 

El ordenador parece combinar aparatos que nos resultan familiares de tanto verlos en casa 
y en la oficina, como son la pantalla y el teclado. Pero recuerde que la similitud normal- 
mente es superficial y que el ordenador es una combinaci6n de elementos con personali- 
dad propia. 
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^Quien feme a la jeiga? 



Como ocurre con todas las ramas especializadas de la industria, la informitica ha desarro- 
llado una jerga propia para facilitar la comunicacidn de conceptos complejos que de otra 
forma requeririan muchas palabras de lenguaje ordinario. Esto no ocurre solamente en 
el campo de la alta tecnologia; todos hemos topado con barreras de este tipo levantadas 
por los profesionales de distintas ^eas. 

En el caso de la informdtica, la confusi6n se debe m&s a la forma de utilizar las palabras 
que a las palabras en si. (Y en castellano, a la imposibilidad de traducir qertas palabras 
inglesas o a que no nos tomamos la molestia de intentarlo.) Casi todos los que llegan a 
familiarizarse con la terminologfa de la informdtica se esfuerzan por utilizar las palabras 
de la forma mis directa posible, con objeto de minimizar la dificultad de la comunicaci6n. 
Pero no crea que el lenguaje informdtico es lo mismo que el lenguaje literario; la informd- 
tica no es literatura, sino una dencia precisa; aparte la sintaxis, la estructura de la comuni- 
caci5n en inform^tica es directa y sencilla, y de ningun modo confusa o ambigua. Como 
no es literatura, la informdtica no ha necesitado desarrollar ima asignatura de 'comenta- 
rio de textos' para analizar el signiHcado exacto del significado de los programas. 

Independientemente de si el significado de un programa es obvio o no lo es, hay muchos 
aspectos de la programaci6n que se pueden calificar de embarullados o de elegantes; aho- 
ra que se estd asentando el revuelo inicial causado por la aparicidn de los microordenado- 
res, se estd prestando mayor atenci6n a los aspectos formales de la construccidn de 
programas. 

La informdtica estd penetrando en las mentes de muchos j6venes que valoran la precisi5n 
y la sencillez de las ideas y de la forma de comunicarlas. No hay demasiados nifios que 
a los diez aflos scan ya abogados, pero si muchos que a esa edad saben programar. 
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Lo basico de BASIC 

Casi todos los ordenadores dom6sticos tiene incorporado el lenguaje BASIC, que hoy por 
hoy es lo mds pr6ximo al lenguaje ordinarlo. El nombre del lenguaje no implica ninguna 
limitacidn en cuanto a sus posibilidades; de hecho, se ha escrito programas extremada- 
mente complejos y potentes en BASIC. 

Sin embargo, es evidente que el nombre ha atraido a muchos principiantes, que esperaban 
encontrar en BASIC un buen punto de partida entre el laberinto de los lenguajes de pro- 
gramaci6n; y esto ha contribuido en gran medida a su universalidad. 

BASIC es un lenguaje infonndtico que interpreta un reducido mimero de 6rdenes, como 
resultado de las cuales realiza operaciones con los datos segun se va ejecutando el progra- 
ma. A diferencia del vocabulario humano medio, que consta de entre 5000 y 8000 pala- 
bras (ademds de la conjugaci6n de los verbos, plurales, diminutivos, etc.), BASIC tiene 
que airegldrselas con s61o un par de centenares. Los programas escritos en BASIC tienen 
que ajustarse a reglas muy estrictas en cuanto a la forma de utilizar esas palabras. La sin- 
taxis es muy precisa; todo intento de comunicarse con el ordenador en lenguaje coloquial 
produciri el frio mensaje: 

Syntax error 

Esto no representa una limitaci6n seria, ya que BASIC estd diseftado para trabajar con 
niimeros. Las palabras son b^icamente una generalizacidn de las operaciones matemdti- 
cas elementales (+ , - , etc.). El concepto mis importante que tienen que asunilar los prin- 
cipiantes es que el ordenador s61o puede manejar datos numericos. Es decir, la informa- 
ci6n que se envia a la CPU (unidad central de proceso) tiene que estar en forma num6rica. 



Numeros 

Si empleiramQS un ordenador para almacenar las obras completas de Shakespeare, en to- 
do el sistema no encontrariamos ni una sola letra o palabra. Todo elemento de informa- 
ci6n debe ser convertido a mimero antes de que el ordenador pueda reconocerlo y mani- 
pularlo. 

BASIC interpreta las palabras como si fueran numeros; para procesarlas, el ordenador 
no dispone de mis medios que la suma, la resta y la 16gica de Boole, con la cual puede 
hacer comparaciones y seleccionar atributos; en otras palabras, averiguar si un numero 
es menor o igual que otro, o realizar determinada tarea si un numero cumple cierta con- 
dicion. 
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A trav6s del programa, el ordenador desmenuza todas las tareeis en sus componentes m^ 
elementales. 




(^eb 



Si todo esto le parece farragoso, esta en lo cierto. Ha descubierto la primera y mas impor- 
tante verdad de la infonndtica. Un ordenador es una herramienta que sirve para realizar 
tareas elementales y repetitivas a gran velocidad y con precision absoluta. Asi, BASIC in- 
terpreta las instrucciones que se le dan por medio del programa y las traduce al lenguaje 
que la CPU (unidad central de proceso) puede entender. La logica del ordenador s61o dis- 
tingue dos estados: si y no; en notaci6n binaria, 1 y 0; en notacidn de Boole, 'verdadero' 
y 'falso'. No hay estados intermedios del tipo 'quizd'. 

El proceso de conmutacidn entre esos dos estados es la esencia del termino 'digital'. En 
la naturaleza casi todos los procesos evolucionan gradualmente de un estado 'estable' a 
otro. En cambio, en la situacidn digital ideal, la transici6n de un estado a otro es instantd- 
nea. Sin embargo, las leyes de la fisica de semiconductores imponen un pequeflo retardo, 
el retardo de propagacidn, que es el causante del tiempo que tarda el ordenador en proce- 
sar la informacion antes de dar la respuesta. 

En todo caso, el ordenador tiene que esperar hasta que concluya una tarea antes de poder 
abordar la siguiente, lo que representa que siempre se le impone un retardo artificial. El 
proceso digital es 'bianco' o 'negro', y las fases de transici6n por los diversos grados de 
'gris' no tienen ninguna importancia. En cambio, los procesos anal6gicos se realizan pre- 
cisamente a trav6s de esas fases de 'gris'. 
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Si la respuesta final solo puede ser o 1, no es posible que el resultado sea 'casi' correcto. 
El hecho de que los ordenadores cometan errores en ocasiones se debe a la limitacion del 
tamafio de los niimeros que pueden procesar; los numeros con demasiados digitos tienen 
que ser 'comprimidos' para que encajen en el espacio disponible, lo que conduce a errores 
de redondeo. 
En un mundo en el que s61o existen los digitos y 1, icomo se cuenta mas alia de 1? 



Bits Y bytes 

Estamos habituados a entender los numeros solamente cuando estin expresados en el sis- 
tema decimal, en el que el punto de referenda es el mimero 10 y en el que se dispone de 
10 digitos (del al 9) para representar los numeros. El sistema binario es conceptualmente 
analogo al decimal, pero con solo dos digitos; las unidades con las que opera este sistema 
son los denominados bits (forma contraida de Binary digiT, digito binario). 

La relacion entre bits y numeros decimales es sencilla y vamos a estudiarla. 

Es habitual declarar el maximo numero de bits que vamos a usar para representar los nu- 
meros, y afladir ceros per la izquierda para completar la expresidn. Por ejemplo, el mime- 
ro decimal 7 se convierte en el binario 

00111 

en notacion de 5 bits. 

En el sistema binario, los digitos se pueden considerar como indicadores dispuestos en co- 
lumnas para especificar si una determinada potencia de 2 estd presente o no lo esta: 

2° = 1 

2* = 2 = 2 = 2(2") 

2^ = 4 = 2x2 = 2(2*) 

2^ = 8 = 2x2x2 = 2(2^) 

2" = 16 = 2x2x2x2 = 2(2^) 

de modo que las columnas tienen el siguiente aspecto: 

2* 2^ 2^ 2* 2° 

10 11 
(16 + 0+0+2+1) = 19 

Para abreviar la terminologia al hablar de informaci6n binaria se introduce el concepto 
de 'byte', que es una sucesi6n de 8 bits. El mayor numero que se puede representar con 
un byte es 11111111 (binario) o 255 (decimal). Si contamos tambien el 00000000, resulta 
un total de 256 numeros distintos, que son datos perfectamente vdlidos para el ordenador. 
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Los ordenadores prefieren manejar los bits en grupos de 8. El niimero 256 es demasiado 
pequeflo, y por eso, para poder controlar la memoria, se utilizan dos bytes que se interpre- 
tan en forma matricial. Cada posici6n de memoria tiene una dlreccion vertical y otra hori- 
zontal, y entre las dos caracterizan sin ambigiiedad la posicion. Por ejemplo, la siguiente 
matriz 








1 


2 


3 


4 


5 


6 


7 


8 


9 
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puede caracterizar hasta 10x10 elementos de informaci6n utilizando niimeros de direc- 
ci6n comprendidos entre y 9. El elemento almacenado en la posicion 3,5 es un '1', lo 
mismo que el que estd en la posicidn 5,5. 

Andlogamente, una matriz binaria de 256x256 puede caracterizar 65536 posiciones utili- 
zando direcciones de 8 bits para los ejes vertical y horizontal de la matriz. Nuestros ele- 
mentos iniciales, '0' y '1', han progresado hasta ser capaces de identificar 65536 elementos 
diferentes. 

El siguiente nivel de abreviatura en terminologia binaria es el K, que representa 1024 
bytes. El mimero 1024 es la potencia de 2 mis pr6xima a nuestro 'kilo' (1000), y explica 
por que se dice que un ordenador es de 64K cuando en realidad tiene una memoria de 
65536 bytes (64x1024). 

Afortunadamente, el interprete de BASIC se encarga de todas estas conversiones. Es per- 
fectamente posible Uegar a ser un programador aunque no se domine el sistema binario. 
No obstante, unos conocimientos del sistema binario pueden ayudar a desenmascarar la 
magia de ciertos niimeros clave que inevitablemente nos encontramos en informdtica. 
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Vale la pena dedicar algiin tiempo a entender el sistema binario y a comprender el por 
que de numeros tales como el 255 o el 1024, pues parece evidente que estos niimeros segui- 
ran siendo el fundamento de la informatica, al menos en el future previsible. La fiabilidad 
y sencillez que proporciona el sistema binario se seguira imponiendo a la complejidad que 
implicaria cualquier otro sistema de numeracion. 



Sin embargo . . . 



Por sencilla y elegante que sea, la notacion binaria induce a confusion a los humanos, 
por que no somos capaces de leer de un golpe de vista los numeros binarios. Hay algunos 
otros sistemas de numeracion que los programadores utilizan con mayor facilidad. Un sis- 
tema muy utilizado en microordenadores es el hexadecimal (HEX). Su base es el niimero 
16. La correspondencia entre digitos decimales y hexadecimales es la siguiente: 

Decimal 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



Hexadecimal 

0123456789A B 



C D E 



El sistema hexadecimal puede dividir los 8 bits de un byte en dos bloques de 4 bits, ya 
que 15 es un niimero de 4 bits: 1111 en binario. El primer bloque indica el 
mimero de unidades completas de '15'; el segundo bloque indica el 'resto'. Y aqui es don- 
de empieza a aparecer la elegancia de los sistemas binario y hexadecimal. A continuaci6n 
damos una tabla de conversidn entre los tres sistemas para los primeros numeros: 



Decimal 


Binario 


Hexadecimal 











1 


1 


1 


2 


10 


2 


3 


11 


3 


4 


100 


4 


5 


101 


5 


6 


110 


6 


7 


111 


7 


8 


1000 


8 
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Decimal 


Binario 


Hexadecimal 


9 


1001 


9 


10 


1010 


A 


11 


1011 


B 


12 


1100 


C 


13 


1101 


D 


14 


1110 


E 


15 


1111 


F 


16 


10000 


10 



Un numero de 8 bits tal como el 11010110 (&D6 hex) puede ser subdividido en dos de 4 
bits. A lo largo de todo este manual indicamos los mimeros hexadecimales precediendolos 
del signo &. El sistema hexadecimal es el mas utilizado por los programadores que traba- 
jan en ensamblador. EI lenguaje ensamblador es la etapa mas cercana a codigo de maqui- 
na a la que Uegan normalmente los programadores; permite expresar las instrucciones en 
'codigos nemotecnicos', que son algo mas inteligibles que los codigos de maquina. 

Para convertir un numero hexadecimal en binario, lo primero que hay que hacer es obse- 
var el primer digito, para ver cuantos grupos de '16' hay en el numero, multipUcar por 
16 y luego sumar al resultado el valor del segundo digito. Asi pues, no se deje Uevar por 
la tentacion de pensar que &D6 es 13+6, ni 136, porqueenrealidad es (13xl6)+(6)=214. 

EI proceso es el mismo que seguimos cuando leemos un numero decimal: 89=(8x 10)+9. 
Lo que ocurre es que nos resulta mucho mas facil multiplicar por 10 que por 16; es una 
cuestion de practica. 

Si usted ha conseguido Uegar hasta aqui sin estar demasiado confuso, puede decir que esta 
en el buen camino para Uegar a entender los principios basicos del ordenador. Quiza se 
pregunte para que nos metemos en todas estas complicaciones, y tiene razon. Un ordena- 
dor es un aparato que maneja ideas y conceptos muy sencillos; lo que tiene de especial 
es que realiza esas operaciones a una velocidad muy grande (millones de veces por segun- 
do) y que tiene una enorme capacidad para recordar los datos, tanto los que se le han su- 
ministrado como los resultados intermedios de los muchos miles de sumas que realiza an- 
tes de poder dar la respuesta final. 
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Si desea seguir estudiando la teoria de los ordenadores, sepa que hay miles de libros dedi- 
cados a estos temas. Algunos no le aclararan en absoluto las ideas, sino todo lo contrario, 
pero otros en cambio le guiaran en el descubrimiento de la sencillez y las relaciones funda- 
mentales que existen entre los sistemas de numeracion y le ayudaran a comprender la for- 
ma en que el ordenador los maneja. 
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Parte 2: Mas en concreto sobre el 464/6128 



En esta seccion vamos a tratar algunas cuestiones especificas del 464/6128. 
La informacion bdsica sobre estos temas se puede encontrar en el 'Curso 
de introduccion' y en el capitulo titulado 'Lista completa de las palabras 
clave del BASIC de Amstrad'. 

Temas tratados en esta seccion: 

* Juegos de caracteres 

* ASCII 

* Variables 

* Logica 

* Caracteres definidos por el usuario 

* Formates de escritura 

* Ventanas 

* Interrupciones 

* Datos 

* Sonido 

* Graficos 

* Utilizacion del segundo banco de 64K de RAM 



Caracteres 



Cuando se ponga al teclado de su 464/6128, no de por supuesto que en la pantalla vayan 
a aparecer letras y niimeros reconocibles. Ya hemos explicado que el ordenador no es una 
maquina de escribir. Lo que usted hace es pulsar una serie de conmutadores electricos; 
las seflales electricas asi producidas son traducidas" por los circuitos internos para enviar 
a la pantalla grupos de puntos. Segiin sea la colocacion de esos puntos, podremos recono- 
cer letras, niimeros u otros caracteres del 'juego de caracteres' del 464/6128. 
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Algunos de estos caracteres no son accesibles directamente a traves del teclado, sino me- 
diante la instrucci6n PRINT CHR$(numero). Esto es asi porque la informaci6n se almace- 
na en el ordenador en unidades de 1 byte y, como vimos en la parte 1 de este capitulo, 
1 byte puede tener 256 formas posibles. Dado que el ordenador tiene que dedicar al menos 
un byte a cada caracter almacenado, mas vale que aprovechemos las 256 combinaciones 
posibles en lugar de conformarnos con los 96 'caracteres estandar' de las mdquinas de es- 
cribir y desperdiciar los 160 restantes. 

Los caracteres estandar son un subconjunto del juego total de caracteres. Su nombre en 
informatica es 'caracteres ASCII', termino derivado de 'American Standard Code for In- 
formation Interchange' (codigo estandar norteamericano para el intercambio de la infor- 
macion). Se trata de un sistema diseiiado para asegurar la compatibilidad de los datos 
transmitidos de un ordenador a otro. En el capitulo 7 hemos dado la lista de todos los 
caracteres ASCII, asi como de los demas caracteres disponibles en el 464/6128, junto a 
sus mimeros de codigo. 



Vamos a verlos 

Seguramente ya no encierra ningun secreto para usted un programa tan sencillo como 
este: 

10 FOR n=32 TO 255 
20 PRINT CHR$(n); 
30 NEXT 

con el que hacemos que el ordenador exhiba en la pantalla el juego completo de caracte- 
res. Pero estudiemos un poco la esencia de este programa. 

Lo primero que debemos obsevar es que al ordenador no le hemos dicho PRINT "abc- 
defghijklmn . . . ", sino PRINT CHR$(n). En vez de mencionar explicitamente los carac- 
teres hemos puesto en su lugar una 'variable'. Una variable es un elemento de informacidn 
que varia segun impongan las instrucciones del programs. (El nombre que hemos dado 
a la variable en este caso, n, es arbitrario; podriamos haber puesto cualquier letra o com- 
binacion de letras, cualquier cosa que no fuera una palabra reservada de BASIC.) 
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^Como sabemos que es una variable? 

Un niimero tal como el 5 es fijo, esta antra el 4 y al 6 y no tiene nada de variable. El carac- 
ter n tambien es fijo: es una latra concrata del alfabeto. 

Entonces, icomo distingue el ordenador las variables da las constantes? Si hubieramos 
querido decirla que considerara la n como letra del alfabeto, la habriamos escrito entre 
comillas: "n". El ordenador habria respondido con el mensaje Syntax error, porque no 
entenden'a la linea FOR "n"=32 TO 255. 

Al escribir la n sin comillas le hemos dicho al ordenador que n es una variable. La instruc- 
cion FOR de BASIC tiene que ir seguida del nombre de una variable, y el ordenador da 
por supuesto que lo que pongamos despues de FOR es una variable. • 

Tambien le hemos dicho al ordenador n=32 TO 255, con lo que hemos especificado el 
margan da variacion de la variable: una sucesion que empieza en 32 y termina en 255. 

Una vez declarada la variable, debemos decirle al ordenador que tiene que hacer con ella; 
eso es lo que hace la linea 20: 

20 PRINT CHR$(n); 

Esta instruccion hace que el ordenador, cualquiera que sea el valor de n, busque en su 
memoria el caractar qua corresponde a esa valor y lo escriba en la pantalla. 

El punto y coma impide que el ordenador realice un retorno de carro y avance de linea 
despues de escribir cada caracter. (De no ser asi, los caracteres aparecen'an uno debajo 
de otro en la primera columna de cada linea.) 

La linea 30 le dice al ordenador que cuando haya concluido la tarea con el primer valor 
de n (que es el 32) debe retornar a la linea en la que esta FOR y volver a hacer lo mismo 
con el siguiente (NEXT) valor de la variable n. Este mecanismo, denominado 'bucle', es 
fundamental para la programacion. Gracias a el nos ahorramos el tener que escribir largas 
series de instrucciones similares. Usted aprendera enseguida a incluirlo en sus programas. 

Cuando el bucle FOR . . . NEXT alcanza el limite superior del margen declarado (255), 
el bucle termina y el ordenador vuelva al modo diracto y muestra el mensaje Ready. Este 
mensaje indica que el ordenador esta preparado para racibir mas instrucciones, una de 
las cuales podn'a ser RUN, para ejecutar otra vez el programa. El programa esta almace- 
nado en la memoria y lo seguira estando hasta que le digamos al ordenador que lo borre 
o apaguemos la maquina. 

Este programa ilustra un hecho esencial de la informatica: todo lo que el ordenador hace 
esta relacionado con mimeros. El ordenador ha ascrito al alfabeto y todos los demas ca- 
racteres usando como referenda para acceder a ellos un niimero. Cuando usted pulsa la 
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tecla A, no le esta pidiendo al ordenador que escriba esa letra, sino que busque en su me- 
moria la informacion numerica que necesita para exhibir el caracter en la pantalla. La lo- 
calizacion de esa informacion es funcion del codigo numerico que se activa al pulsar la 
tecla. (Cada caracter tiene un codigo asociado; la relacion completa se da en el capitulo 
titulado 'Para su referenda ...'.) 

Pero tampoco el hecho de visualizar el caracter tiene nada que ver con 'escribir', sino que 
es un proceso numerico. 

Por ejemplo, el codigo ASCII de la letra A es el 65. El ordenador tampoco entiende el 
numero 65, por lo que tiene que traducirlo de decimal a una forma que le resulte mas fa- 
miliar: el codigo de maquina. Ya hemos estudiado los principios de esta conversion en 
la primera parte de este capitulo. 

Al principio, la conversion de la notacion decimal, a la que estamos tan acostumbrados, 
a notacion hexadecimal nos parece muy difi'cil. Pensar en mimeros decimales nos parece 
tan natural que cambiar de sistema de numeracion es como cambiar de mano el tenedor 
y el cuchillo. 

Para manejar la notacion hexadecimal es necesario adquirir cierto grado de destreza men- 
tal. Una vez adquirida, se empieza a entender el por que de muchos hechos informaticos 
y se hace patente la elegancia de la estructura de este sistema de numeracion. 

Si no conoce los sistemas binario y hexadecimal, le sugerimos que lea detenidamente la 
primera parte de este capitulo. 

Cuando el ordenador ha convertido la pulsacion de la tecla A en un numero comprensible 
para el, busca en una zona de la memoria especificada por ese numero, y en ella encuentra 
otra serie de mimeros que describen la forma de la letra. El caracter que usted puede ver 
en la pantalla esta formado por un bloque de datos, almacenado en la memoria en forma 
de 'matriz' numerica: 




BB 



1 1 1 1 1 1 1 1 




MATRIZ EN BLANCO 
(RETlCULA) 



a MINUSCULA 



A MAYUSCULA 
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Los elementos de la matriz son puntos dispuestos en filas columnas. EI caracter se 'escri- 
be' encendiendo y apagando correcteimente los puntos. En el 464/6128 cada matriz tiene 
8 filas y 8 columnas. Si entre los 255 caracteres no encuentra el que necesita, usted mismo 
puede definirlo a su gusto con la instrucci6n SYMBOL que describiremos mas adelante. 

Los caracteres 'definidos por el usuario' se construyen especificando cada uno de los 64 
puntos de la matriz. Las combinaciones posibles con 1.84467E+ 19, es decir, aproximada- 
mente un 2 seguido de 19 ceros. Si a esto aiiadimos la posibilidad de agrupsu" c£u-acteres 
para formar bloques mas grandes, vemos que las posibilidades de generar graficos solo 
estan limitadas por la imaginacidn del usuario. 



Logica 



Una diferencia fundamental entre una calculadora y un ordenador radica en la capacidad 
de este para manejar operaciones 16gicas y tomar decisiones en instrucciones del tipo IF 
. . . THEN . . . (si . . . entonces . . .). Para ello, los operadores 16gicos tratan los valores 
a los que son aplicados como grupos de bits y examinan y modifican los bits uno a uno. 
No es facil describir las operaciones Idgicas sin antes dar unas definiciones concisas. 

Las dos mitades de una expresion Idgica son los 'argumentos'. Una expresi6n 16gica tiene 
la siguiente forma: 

argumento [operador-logico argumento] 

donde argumento puede ser: 

NOT argumento 
expresidn-num^rica 
expres'i6n-de-refaci6n 
{expresidn-ldgica ) 

Los dos argumentos de un operador logico tienen que ser enteros; de lo contrario se pro- 
duce el error mimero 6. 

Los operadores 16gicos (en orden de prioridad) y su-efecto sobre los bits son los siguientes: 

AND El resultado es a menos que los bits de los dos argumentos scan 1. 
OR El resultado es 1 a menos que los bits de los dos argumentos scan 0. 
XOR El resultado es 1 a menos que los bits de los dos argumentos scan iguales. 

AND es el operador 16gico mds utilizado. 
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PRINT 10 AND 10 
da como resultado 10. 

PRINT 10 AND 12 
da como resultado 8. 

PRINT 10 AND 1000 

tambien da como resultado 8. 

Esto se debe a que los numeros 10 y 1000 ban sido convertidos a su forma binaria: 

1010 
1111101000 

La operacion AND comprueba los bits dos a dos. Si los dos bits de las dos filas son 1, 
el resultado es 1: 

0000001000 

y este niimero binario es el 8 decimal. El operador logico AND se utiliza para detectar 
cuando se cumplen simultdneamente dos condiciones. He aqui un ejemplo que explica 
c6mo: 

10 INPUT "Dia del mes: ",dia 
20 INPUT "Mes numero: ",mes 
30 IF dia=2S AND mes=12 THEN 50 
40 CLS:GOTO 10 
50 PRINT "Feliz Navldad!" 

OR funciona de forma andloga, pero da como resultado 1 a no ser que los bits de los dos 
operandos sean^O, en cuyo caso el resultado es 0. Aplicado a los mismos numeros que en 
el ejemplo de AND, 

PRINT 1000 OR 10 
1002 

Bit a bit: 

1010 
1111101000 

cuyo resultado es 

1111101010 
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Un programa ejemplo: 

10CLS 

20 INPUT "Mes numero: ",mes 

30 IF mes=12 OR mes=1 OR mes=2 THEN 50 

40 GOTO 10 

50 PRINT "Estamos en Invlerno!" 

El oiJerador NOT invierte todos los bits del argumento (convierte el en 1, y viceversa): 

10CLS 

20 INPUT "Mes numero: ",mes 

30 IF N0T(mes=6 OR mes=7 OR mes=8) THEN 50 

40 GOTO 10 

50 PRINT "No estamos en verano!" 

Observe que se pueden combinar los operadores logicos, sin mas limitacion que la longi- 
tud de la linea: 

10 INPUT "Dia del mes: ".dia 

20 INPUT "Mes numero: ",mes 

30 IF N0T(mes=12 OR mes=1) AND dia=29 THEN 50 

40 CLS:GOTO 10 

50 PRINT "No es ni diciembre ni enero, pero puede ser un ano bisiesto" 

El resultado de una expresion de relacion es -1 o 0. La representacion binaria del nume- 
ro -1 es una sucesidn de bits iguales a 1; para el 0, todos los bits son 0. El resultado de 
una operacion logica entre Mgumentos de este tipo da -1 (verdadero) o (falso). 

Aiiada las siguientes lineas al programa einterior: 

60 PRINT N0T(mes=12 OR mes=1) 
70 PRINT (mes=12 OR mes=1) 

Si al ejecutar el programa introduce 29 para el dia y 2 para el mes, obtendra el mensaje 
de la linea 50, y las lineas 60 y 70 escribiran los resultados de las operaciones. 

Finalmente, XOR (OR eXclusivo) produce como resultado 'verdadero' siempre que los 
argumentos scan diferentes. 
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A continuacion resumimos todo lo dicho en una tabia, denominada tabla de verdad. Es 
una forma muy clara de ilustrar que sucede en una operacion logica bit a bit. 

Argiunento A 1010 

Argumento B 0110 

Resultado de AND 0010 
Resultado de OR 1110 

Resultado de XOR 1100 



Caracteres definidos por el usuario 

Una de las primeras aplicaciones que el lector encontrara para los numeros binarios es 
el diseno de caracteres con la instruccion SYMBOL. Como sabemos, el car^cter se diseiia 
en una reticula de 8 por 8; cada una de las 8 filas se convierte en un niimero binario po- 
niendo un 1 en lugar del pixel que debe ser iluminado, y un cero en lugar del pixel que 
debe quedar del color del papel. Los 8 numeros asi obtenidos seran los parametros de 
SYMBOL. Por ejemplo, para definir un caracter que representa una casa: 

* = 00001000 = &08 = 

* * * * = 00111100 = &3C = 

* * = 01000010 = &42 = 

* * * * = 10100101 = &A5= 128 

* * = 10000001 = &81 = 128 
« * * * * = 10110101 = &B5 = 128 

* ** * = 10110001 = &B1 = 128 
******** = 11111111 = &FF = 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 255 

la orden es 

SYMBOL 240,8,60,66.165,129,181,177,255 
o bien 

SYM BOL 240,&08,&3C,&42,&A5,&81 ,&B5,&B1 ,&FF 

o bien 

SYM BOL 240,&X00001000,&X001 1 1 100,&X01000010,&X10100101 ,&X10000001 , 
&X10110101,&X10110001,&X11111111 
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8 


= 8 


32 + 16 + 8 + 4 


= 60 


64 


+ 2 = 66 


+ 32 


+ 4 


+ 1 = 165 
+ 1 = 129 


+ 32 + 16 


+ 4 


+ 1 = 181 


+ 32 + 16 




+ 1 = 177 



Para escribir el caracter asi definido: 
PRINT CHR$(240) 

Finalmente, para agrupar caracteres se puede hacer 

adosado$=CHR$(240)+CHR$(240) 
PRINT adosado$ 

o bien 

urbanizacion$=STRING$(15,240) 
PRINT urbanizacion$ 



La imprenta ... 

PRINT es la primera instrucci6n que se usa cuando se empieza a programar. En principio 
es muy sencilla, pero podemos complicarla considerablemente. En efecto, no basta con 
pedirle al ordenador que escriba, sino que tambi^n debemos decirle donde y como. 



Formato de escritura 



La instrucci6n PRINT se puede utilizar de diversas formas. La mds sencilla es poner a 
su derecha el elemento que se desea escribir, que puede ser un niimero, una cadena literal 
o el nombre de una variable: 

PRINT 3 
3 

PRINT "hola" 
hola 

a=5 

PRINT a 
5 

a$="prueba" 
PRINT a$ 
prueba 
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En una instrucci6n PRINT se pueden poner varies elementos, intercalando entre ellos un 
separador, o bien TAB o SPC. Los separadores pueden ser la coma o el punto y coma. 
El punto y coma hace que el siguiente elemento se escriba inmediatamente a continuaci6n 
del que se acaba de escribir; la coma provoca el salto a la siguiente zona de escritura. La 
anchura imph'cita de la zona de escritura es 13, pero se la puede modificar con la orden 
ZONE: 



PRINT 3;-4;5 
3-4 5 



PRINT "buenos""dias" 
buenos dias 

PRINT 3,-4,5 
3-4 5 

ZONE 4 
PRINT 3,-4,5 
3-4 5 

Observe que los mimeros positives Uevan un espacio a la izquierda, mientras que en los 

negativos ese espacio esta ocupado por el signo -. Todos los mimeros llevan un espacio 

en bianco a la derecha. Las cadenas se escriben literalmente tal como estdn entre las 

comillas. 

La funci6n SPC Ueva como parametro una funcion numdrica; 'escribe' tantos espacios 

como indique el valor de la expresion. Si el valor es negativo, se toma el 0; si es mayor 

que la anchura de la ventana actual se toma esa anchura: 

PRINT SPC(5r'hola" 
hola 

x=3 

PRINT SPC(x*3r'hola" 
hola 

TAB es similar, pero el mimero de espacios que escribe es el necesario para que el siguiente 
elemento se empiece a escribir en la columna especificada. 

La ventana en la que se escribe es la mimero 0, a no ser que se especifique otro mimero 
de canal (#) antes de la lista de elementos. Se pueden especificar otros canales para enyiar 
la salida a otras ventanas. Los canales 8 y 9 estdn reservados para la impresora y el disco 
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(o cinta), respectivamente. (Observese que para 'escribir' en el canal #9 se debe utilizar 
WRITE en lugar de PRINT.) 

PRINT "hola" 

hola — ventana 

PRINT #0/'hola" 

hola — tambien ventana 

PRINT #4." hola" 

hola — ventana 4 (primera linea de la pantalla) 

PRINT #8," hola" 

hola — en la impresora (si esta conectada) 

Con TAB y SPC se pueden controlar los formates mas sencillos, pero en cuanto el forma- 
te deseado sea un poco mas complejo habra que utilizar PRINT USING y una 'plantilla' 
adecuada. Una plantilla de formato es una expresion literal que contiene caracteres espe- 
ciales, cada uno de los cuales especifica un formato determinado. Estos caracteres, deno- 
minados 'especificadores de formato', estan explicados en detalle en la descripci6n de 
PRINT USING (capitulo 3). Aqui vamos a dar algunos ejemplos. 

En primer lugar, he aqui los formates disponibles para escribir cadenas literales: 

" escribe tantos caracteres come espacies haya en la plantilla, mas dos: 

PRINT USING " ";"cadena de prueba" 

cadena d 

"I" escribe solamente el primer caracter de la cadena: 

PRINT USING "!";" cadena de prueba" 
c 

Pero el formato literal mas litil es seguramente "&". Con el se anula una funcidn de BA- 
SIC per la cual, si una cadena es demasiade larga come para caber en la linea actual, el 
ordenader la escribe al principle de la Unea siguiente. PRINT USING "&"; desactiva esa 
funci6n. (En el siguiente ejemplo penga BORDER para hacer visibles los berdes del 
papel.) 
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MODE 1:L0CATE 39.1:PRINT "demasiado" 

— linea 1 
demasiado —linea 2 

MODE 1:L0CATE 39,1:PRINT USING "&";" demasiado" 

de —linea 1 

masiado —linea 2 

Para los numeros se dispone de gran variedad de plantillas. La mas sencilla es PRINT 
USING "####", en la que cada # reserva espacio para un digito: 

PRINT USING "######" ;123 
123 

La posici6n del punto decimal se puede especificar incluyendo un punto en la plantilla: 

PRINT USING "####.#### #";12.45 
12.45000 

Los digitos que quedan a la izquierda del punto decimal se pueden agrupar de tres en tres, 
separados por comas, si se pone una coma a la izquierda del punto en la plantilla: 

PRINT USING "########,.####";123456.78 
123,456.7800 

En el formato se pueden incluir los signos de dolar y de peseta, para que aparezca siempre 
el signo monetario antes del primer digito, aunque el mimero no Uene el formato. Esto 
se consigue poniendo $$ o RPt en la plantilla: 

PRINT USING "$$##";7 
$7 

PRINT USING "$$#r;351 
$351 

PRINT USING "PtPt#####r;1234.567 
Pti .234.57 

Observe como se ha redondeado este ultimo mimero. 
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Se puede rellenar el espacio sobrante por la izqiiierda con asteriscos poniendo * * en la 
plantilla: 

PRINT USING "**####r';12.22 
****12.2 

Esto ultimo se puede combinar con los signos monetarios poniendo **$ o **Pt en la 
plantilla. 

Un signo = al principio de la plantilla especifica que siempre se debe escribir el signo del 
numero a su izquierda. Si el = estd al final de la plantilla, el signo se describe a la derecha 
del numero. 

El signo - s61o se puede poner al final de la plantilla; especifica que se debe poner el signo 
— a la derecha del numero si este es negativo. 

PRINT USING "+#r;12 
+12 

PRINT USING " + #r';-12 
-12 

PRINT USING "##+";12 
12+ 

PRINT USING "##-";-12 
12- 

PRINT USING "##-";12 
12 

La inclusi6n de "tttT" en la plantilla hace que el numero se escriba en forma exponencial: 

PRINT USING "###.##ntr;123.45 
12.35E+01 

En cualquier caso, si el numero es demasiado grande como para caber en el formato espe- 
cificado, el numero no se trunca, sino que se lo escribe entero, precedido de un signo Vo 
para indicar lo que ha ocurrido: 

PRINT USING "###r;123456 
%123466 
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Ventanas 

El BASIC del 464/6128 permite la definicion y el control de hasta ocho ventanas de texto. 
Todas las acciones de control de textos se pueden referir a cualquiera de estas ventanas. 

Las ventanas se definen con la orden WINDOW, que va seguida de 5 parametros. El pri- 
mero es opcional y especifica el numero de la ventana que se va a definir; si se lo omite, 
el ordenador supone el 0, que es el canal por el que el BASIC emite sus mensajes normales 
(Ready, errores, etc.). Antes del numero se pone el signo # para indicar que se estd dando 
un numero de canal. Los otros cuatro parametros especifican los extremos izquierdo, de- 
recho, superior e inferior de la ventana. Como son niimeros de fila y de columna, pueden 
estar comprendidos entre 1 y 80 los dos primeros, y entre 1 y 25 los dos ultimos. 

El siguiente ejemplo define la ventana (canal) numero 4, la cual se extiende desde la co- 
lumna 7 hasta la 31, y desde la fila 6 hasta la 18. Reinicialice la mdquina y luego escriba: 

WINDOW #4,7,31,6,18 

No parece que haya ocurrido nada, asi que escriba lo siguiente: 

INK 3,9 
PAPER #4,3 
CLS #4 

En la pantalla ha aparecido un gran rectangulo verde, que es la ventana numero 4. Este 
ultimo ejemplo demuestra que las instrucciones PAPER y CLS se pueden referir a cual- 
quiera de las ocho ventanas especificando el numero de canal; su omisi6n hace que la or- 
den actue sobre la ventana numero 0. 

Las ordenes para las que se puede especificar numero de ventana son las siguientes: 



CLS 


POS 


COPYCHR$ 


PRINT 


INPUT 


TAG 


LINE INPUT 


TAGOFF 


LIST 


VPOS 


LOCATE 


WINDOW 


PAPER 


WRITE 


PEN 
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La ventana verde que hemos creado habra borrado parte del texto que teniamos en la pan- 
t£illa, que habia sido enviado a la ventana niimero 0. 

EI texto se puede escribir en cualquier ventana especificando el niimero de canal en la ins- 
truccion PRINT: 

PRINT #4,"estoy en la ventana 4" 

Estas palabras ban aparecido en el extreme superior de la ventana verde, no en la linea 
siguiente de la pantalla, que es lo que habria ocurrido con: 

PRINT "estoy en la ventana ff' 

Observe que al escribir esta ultima orden el texto ha invadido peirte de la ventana verde. 

Si usted desea confinar todos los mensajes de BASIC a la ventana niimero 4, intercambie- 
la con la implicita (la niimero 0) mediante la orden: 

WINDOW SWAP 0,4 

El mensaje Ready ha aparecido ahora en la ventana verde y el cursor esta debajo de el. 
Escriba lo siguiente: 

PRINT #4," estoy en la ventana 4" 

El texto ha aparecido debajo de la orden WINDOW SWAP, en lo que antes era la ventana 
y ahora es la 4. Estos ejemplos demuestran que el ordenador recuerda la posicion de 
escritura de cada ventana incluso despues de un intercambio. Escriba lo siguiente: 

LOCATE #4,20,1 

PRINT "estoy en la ventana ff' 

PRINT #4," estoy en la ventana 4" 

Mientras no se ejecuta una orden WINDOW, las ocho ventanas coinciden con la pantalla 
entera. Lo mismo ocurre despues de una orden MODE. Asi pues, si despues de jugar con 
las ventanas se encuentra con que el cursor esta en una muy pequena, puede salir del lio 
escribiendo MODE 1: 

MODE 1 

WINDOW 20,21.7,18 
MO 
DE 
1 
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El ordenador se ha visto obligado a partir la palabra MODE, pero la instrucci6n funciona 
igual. (No olvide dejar un espacio entre la E y el 1.) 

Ahora que ya tiene una idea de c6mo funcionan las ventanas, escriba y pruebe el siguiente 
programa: 

10 MODE 

20 FOR n=0 TO 7 

30 WINDOW #n,n+1,n+6,n+1,n+6 

40 PAPER #n,n+4 

50 CLS #n 

60 FOR c=1 TO 200: NEXT c 

70 NEXT n 

Este programa crea 8 ventanas que se solapan y las borra con un color de papel diferente 
para cada una. 

Cuando termine el programa y haya aparecido Ready, pulse [RETURN] varias veces para 
observar como afecta el desplazamiento de la ventana a los bloques de colores. Sin em- 
bargo, aunque el contenido de las ventanas se desplace, las ventemas en si siguen estando 
en el mismo sitio. Compruebelo escribiendo: 

CLS #4 

Fijese tambien en los diferentes efectos de las siguienes ordenes: 

LIST 
LIST #4 
LIST #3 

Otra caracteristica interesante de la orden WINDOW es que tambien admite los niimeros 
que especifican los bordes izquierdo y derecho en orden inverso; es decir, aunque el pri- 
mer pardmetro sea mayor que el segundo, BASIC los interpreta en el orden correcto. Ana- 
logamente ocurre con los bordes inferior y superior. 

10 MODE 

20 a=1+RND*19:b=1+RND*19 

30 c=1+RND*24:d=1-HRND*24 

40 e=RND*15 

50 WINDOW a,b,c,d 

60 PAPER e:CLS 

70 GOTO 20 
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Interrupciones 



Por si todavia no lo ha leido en otro lugar de este manual, le diremos que una de las princi- 
pales innovaciones del software de los ordenadores Amstrad es su capacidad de gesti6n 
de las interrupciones desde BASIC; esto hace que el BASIC de Amstrad sea capaz de reali- 
zar acciones simultdneas controladas por programa. Esto es lo que se suele denominar 
'multitarea', y se programa con las instrucciones AFTER y EVERY. 

Esta misma habilidad queda demostrada por la forma en que se controla el sonido a trav^s 
de recur SOS tales como las colas de sonido y la sincronizacion de canales. 

De todo lo que tenga que ver eon la medida del tiempo se encarga el cron6metro patr6n 
del sistema, que es un circmto controlado por un cristal de cuarzo. Este'reloj se encarga 
de cronometrar y de sincronizar los procesos que tienen lugar dentro del ordenador: desde 
el barrido de la pantalla hasta al envio de impulsos al microprocesador. Toda funci6n del 
hardware que tenga que ver con el tiempo depende del reloj patron. 

Las instrucciones AFTER (despues de) y EVERY (cada) hacen precisamente lo que su 
nombre sugiere. Asi, AFTER invoca una determinada subrutina cuando ha transcurrido 
el tiempo especificado. 

El 464/6128 mantiene un reloj de tiempo real. La orden AFTER permite que un programa 
de BASIC realice una tarea en un instante futuro especificado. Existen cuatro temporiza- 
dores de retardo, cada uno de los cuales puede tener una subrutina asociada. 

Cuando el tiempo especificado ha transcurrido, la rutina se ejecuta automdticamente, 
exactamente igual que si el ordenador hubiera encontrado un GOSUB en la linea actual 
del programa. Cuando la rutina se acaba, con el RETURN habitual, el programa contimia 
a partir del punto en que fue interrumpido. 

La orden EVERY permite que el programa de BASIC ejecute subrutinas a intervalos de 
tiempo regulares. Tambi^n en este caso se dispone de cuatro temporizadores, a cada uno 
de los cuales se puede asignar una subrutina distinta. 

Los temporizadores tienen prioridades de interrupci6n diferentes, lo que tiene importan- 
cia cuando varios de ellos compiten por interrumpir el programa en un momento dado. 
El temporizador 3 tiene la maxima prioridad, y el la minima (v6ase el capitulo 'Para 
su referenda ...'). 
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10 MODE 1:n=14:x=RND*400 

20 AFTER x^ GOSUB 90 

30 EVERY 25,2 GOSUB 170 

40 EVERY 10,1 GOSUB 180 

50 PRINT' Pruebe sus reflejos:" 

60 PRINT'pulse la barra espaciadora" 

70 PRIMT'cuando yo le diga." 

80 IF ind=1 THEN END ELSE 80 

80 x=REMAIN(2) 

100 IF INKEY(47)=-1 THEN 120 

110 SOUND 1,900:PRINT'Tramposo!":GOTO 160 

120 SOUND 129,20:PRINT'AHORA":t=TIME 

130 IF INKEY(47)=-1 THEN 130 

PRINT' Ha tardado"; 

PRINT(TIME-t)/300;"segundos" 
180 CLEAR INPUT:ind=1:RETURN 
170 SOUND 1,0,50:PRINT'.";:RETURN 
180 n=n+1:IF n>26 THEN n=14 
190 INK 1,n:RETURN 

Las drdenes AFTER y EVERY se pueden ejecutar en cualquier lugar del programa. Su 
efecto es reelegir la rutina asociada y poner a cero el temporizador correspondiente. Los 
temporizadores estdn compartidos por AFTER y EVERY, de modo que una orden AFTER 
cancela la anterior EVERY referida al mismo temporizador, y viceversa. 

Las ordenes Dl y El inhiben y habilitan, respectivamente, las interrupciones. Esto sirve 
para permitir que cierta interrupci6n se procese sin ser interrumpida por otra mas priorita- 
ria. La orden REMAIN da el tiempo que queda en un temporizador y lo desactiva. 



Listas de datos 

Si un programa necesita que se le suministre siempre la misma informacion cada vez que 
se lo ejecuta, es preferible hacer que esa informacidn este contenida en el propio programa 
para no tener que teclearla con cada ejecuci6n. Esto es posible gracias al par de instruccio- 
nes READ/DATA. La orden READ es similar a INPUT en el sentido de que asigna valo- 
res a variables, pero en lugar de captar los valores por el teclado los lee en listas encabeza- 
das por la palabra DATA. Los dos ejemplos siguientes ilustran la diferencia: 
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10 INPUT "escriba 3 numeros separados por comas: ",a,b,c 

20 PRINT'los numeros son";a;"y'';b;"y'';c 

run 



10 READ a,b,c 

20 PRINT'los numeros son";a;"y'';b;"y'';c 

30 DATA 12,14,21 

run 

Los datos contenidos en las listas DATA van separados por comas, lo mismo que los que 
se teclean en respuesta a una instruccion INPUT. 

* 

Las listas DATA pueden contener, no solo numeros, sino tambien cadenas literales cons- 
tantes: 

10 DIM a$(11) 

20 FOR 1=0 TO 11 

30 READ a$(i) 

40 NEXT 

50 FOR i=0 TO 11 

60 PRINT a${i);" "; 

70 NEXT 

80 DATA Cuentan,de,un,sabio,que,un,dla,tan,pobre,y, 

misero,estaba 
run 

Observe que no es necesario encerrar entre comillas las cadenas que se ponen en las listas 
DATA. Las comillas en este caso son opcionales (tambien lo son en INPUT). El linico 
caso en que son necesarias es cuando una cadena contiene una coma; si no se la pusiera 
entre comillas, la instruccidn READ se detendria en la coma y no leeria el resto de la 
cadena. 
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10 READ a$ 

20 WHILE a$<>"*" 

30 PRINT a$ 

40 READ 8$ 

50 WEND 

60 DATA los dias de la semana son lunes, martes,mlercoles, jueves, viernes y 

sabado 
70 DATA "los dias de la semana son lunes, martes,mierooles, jueves, viernes 

y sabado" 
80 DATA * 
run 

La cadena de la linea 60 contiene comas, y per lo tanto cada tramo sera leido per READ 
y escrito per separado. En cambio, la de la linea 70 ha side delimitada per comillas y 
READ la lee de una sola vez. 

El ejemplo anterior demuestra que los datos pueden estar distribuidos en varias lineas (60, 
70, 80, . . .)• Otro detalle no tan evidente es que las lineas DATA pueden estar en cual- 
quier lugar del programa, antes o despues de las instrucciones READ que ken la infor- 
macion. 

Si un programa contiene varias instrucciones READ, cada una continiia leyendo donde 
termino la anterior: 

10 DATA 123,456,789,321,654,2343 
20 FOR 1=1 TO 5 
30 READ num 
40 total=total+num 
50 NEXT 
60 READ total2 

70 IF total=total2 THEN PRINT"los datos son correctos" ELSE PRINT"hay un 
error en, los datos" 

Modifique uno de los primeros cinco mimeros de la lista de la linea 10 y ejecute otra vez 
el programa. Esta tecnica de poner al final de la lista un dato adicional que sea la suma 
de los anteriores constituye un buen metodo de deteccion de errores en los datos, especial- 
mente si los datos son muchos. Se le llama 'suma de verificacion' (checksum). 

Si un programa requiere datos mixtos (cadenas y mimeros), se los puede combinar en una 
misma lista DATA, a condicion de que READ los lea en el orden correcto. For ejemplo. 
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si una lista DATA contiene dos niimeros seguidos de una cadena, la instrucci6n READ 
tendra que leer primero dos variables num^ricas y luego una literal: 

10 DIM a(5),b(5),s$(5) 

20 FOR i=1 TO 5 

30 READ a(i),b(i),s$(i) 

40 NEXT 

50 DATA 1,7,Alfredo,3,9,Juan,2,2,Enrique,4,6,Pedro,9,1, Manuel 

60 FOR i=1 TO 5 

70 PRINT s$(i)/':";a(i)*b(i) 

80 NEXT 

Tambien se pueden separar los datos en dos listas distintas: 

10 DIM a(5),b(5),s$(5) 

20 FOR 1=1 TO 5 

30 READ a(i),b(i) 

40 NEXT 

50 FOR i=1 TO 5 

60 READ s$([) 

70 NEXT 

80 DATA 1,7,3,9,2,2,4,6,9.1 

90 DATA Alfredo,Juan,Enrlque,Pedro,Manuel 

100 FOR 1=1 TO 5 

110 PRINT s$(i),":";a(i)*b(l) 

120 NEXT 

Si ahora cambiamos el limite superior de la linea 20: 

20 FOR 1=1 TO 4 

los dos primeros intentos de leer cadenas dardn '9' y '1'. Estos valores son cadenas vali- 
das, pero el programa no funciona como esperibamos. Una forma de asegurar que el pro- 
grama funcione correctamente consiste en incluir las lineas: 

15 RESTORE 80 
45 RESTORE 90 

La orden RESTORE hace que el puntero de datos 'apunte' hacia el principio de la linea 
especificada; por lo tanto se la puede incluir en una instruccion condicional para que el 
bloque de datos leidos dependa del resultado de alguna comprobaci6n. Por ejemplo, en 



8/34 Cuando usted guste . . . 



un juego que este previsto para varies niveles de destreza, los datos de cada nivel pueden 
ser seleccionados mediante una variable adecuada. Veamos un ejemplo: 

1000 REM seccion para dibujar la pantalla 
1010 IF nivel=1 THEN RESTORE 2010 
1020 IF nlvel=2 THEN RESTORE 2510 
1030 IF nlvel=3 THEN RESTORE 3010 
1040 FOR y=1 TO 25 
1050 FOR x=:1 TO 40 
1060 READ car 

1070 LOCATE x,y:PRINT CHR$(car); 
1080 NEXT x,y 

2000 REM DATA para pantalla 1 

2010 DATA 200,190.244,244,210, . . . etc. 

2500 REM DATA para pantalla 2 

2510 DATA 100,103,245,243,251, . . . etc. 

3000 REM DATA para pantalla 3 

3010 DATA 190,191.192,193,194. . . . etc. 

Otra aplicacion tipica de las instrucciones DATA/READ/RESTORE es un programa que 
interprete una melodia. Los periodos de tono se pueden poner en listas data; RESTORE 
puede hacer que se repita una seccion moviendo el puntero de datos hacia atr&s: 

10 FOR 1=1 TO 3 

20 RESTORE 100 

30 READ nota 

40 WHILE notao-1 

50 SOUND 1.nota.35 

60 READ nota 

70 WEND 

80 NEXT 

90 SOUND 1.142,100 

100 DATA 95.95,142.127.119.106 

110 DATA 95.95.119.95.95.119.95 

120 DATA 95.142.119.142.179.119 

130 DATA 142.142.106.119.127.-1 

run 
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El sonido de la musica 

De todas las instrucciones del 464/6128, es posible que las de sonido y envolventes le pa- 
rezcan las mds imponentes a primera vista. Y sin embargo, con un poco de practica, muy 
pronto podra progr2imar ruidos de diversos tipos e incluso melodias con armom'a. 

Empecemos por analizar las cuatro primeras partes de la instrucci6n SOUND, que son 
las siguientes: situacion de canales, periodo de torio, duracion de la nota y volumen. Lo 
primero que hay que saber es en que margen de valores puede estar cada uno de estos 
pardmetros. 

Aplazaremos el primero de momento porque es el mas complicado. El segundo, periodo 
de tono, puede tener cualquier valor entero comprendido entre y 4095. Sin embargo solo 
algunos de estos valores producen notas reconocibles: son los que estan relacionados en 
la parte 5 del capitulo 'Para su referencia . . . '. Por ejemplo, el mimero 239 produce la 
nota DO media; el 253 produce la nota SI inmediatamente anterior; los valores 240 a 252 
producen cada uno un tono diferente, pero ninguno de ellos corresponde a la escala del 
piano. Si el parametro es 0, no se produce ningiin tono; esto es litil cuando se esta gene- 
rando ruido. 

El tercer pardmetro de la orden SOUND especifica la duracion de la nota en unidades 
de centesimas de segundo. Su valor puede estar normalmente entre 1 y 32767. Si es 0, la 
duraci6n queda controlada por la 'envolvente' (de la que hablaremos mds adelante). Si 
el parametro es negative, su valor absoluto indica cuantas veces se va a repetir la envol- 
vente; por ejemplo, -3 significa 'repetir la envolvente tres veces'. 

El cuarto pardmetro especifica el volumen. Puede valer entre y 15; el valor implicito 
es 12, que es el que el ordenador supone si no se especifica otra cosa. En los sonidos senci- 
Uos que hemos conocido hasta ahora, el volumen ha permanecido constante durante el 
tiempo en que ha sonado cada nota. Sin embargo, cuando se utiliza una 'envolvente de 
volumen' para hacer que este deje de ser constante, el parametro 'volumen' de SOUND 
se considera como volumen inicial de la nota. 

Bueno, vamos con el parametro de situacion de canales. Quiza sepa ya el lector que el 
significado de este parametro depende del valor de sus bits; para entenderlo necesitara sa- 
ber algo acerca de los mimeros binaries (parte 1 de este capitulo). 

El sonido se puede generar en tres canales distintos. Si el ordenador esta conectado a un 
ampUficador estereofonico, un canal sera el derecho, otro el izquierdo y otro comiin a 
ambos o centred. Para especificar en que canal o canales debe sonar una nota se utilizan 
los siguientes mimeros: 

1 canal A 

2 cemal B 
4 canal C 
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Para enviar el sonido a varies canales, se suman los niimeros correspondientes. Por ejem- 
plo, para que la nota suene en los canales A y C, el parametro debe ser 1+4=5. 

SOUND 5,284 

Se preguntara el lector por que el niimero del canal C es 4, y no 3. Observe que estos tres 
niimeros son potencias de 2(1=2T0, 2=2tl, 4=2t2) y se combinan para dar un niimero 
binario. Si imaginamos un niimero binario de tres digitos, cada uno de ellos se puede utili- 
zar para indicar si el canal correspondiente debe estar conectado o desconectado. En el 
ejemplo anterior, 5 en decimal es equivjdente a 1*4+0*2+1*1, es decir, 101 en binario. 
Si a los digitos de este niimero binario les ponemos las etiquetas C, B y A, tenemos 

C B A 

10 1 

de forma que C y A estan conectados, mientras que B esta desconectado. Si quisieramos 
que la nota sonase en los canales A y B, el niimero tendria que ser 

C B A 
1 1 

En decimal: 0*4+1*2+1*1=3. La orden SOUND seria 

SOUND 3,142 

Naturalmente, este niimero tiene que coincidir con el que se obtendria sumando los valo- 
res correspondientes a los dos canales: 1+2=3 (recuerde que A=l, B=2, C=4). 

Si despues de todo no ha entendido como funciona esto en binario, no se preocupe. Le 
basta con saber que las combinaciones de canales se programan sumando los niimeros de 
seleccion de los canales deseados. 

Lamentablemente (o afortunadamente, segiin como se mire), todavia podemos sumar 
otros niimeros a este parametro. Asi, los niimeros 8, 16 y 32 especifican que el sonido debe 
sincronizarse cbn otro canal (A, B o C, respectivamente). Ahora hace falta saber que es 
eso de 'sincronizar con un canal'. Pues bien, los sonidos que hemos generado hasta ahora 
han ido directamente al canal especificado. Escriba lo siguiente: 

SOUND 1,142,2000 
SOUND 1,90,200 

A menos que sea usted un mecanografo muy lento, habra tenido tiempo de escribir la se- 
gunda orden antes de que se extinguiera el primer sonido. Esto ocurre por que el sistema 
de sonido puede guardar hasta cinco ordenes en cada una de las colas de los tres canales. 
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Si queremos que suene una nota por el canal A y luego dos notas simultaneamente en los 
canales A y B, necesitamos un forma de indicar al ordenador que no debe ejecutar la nota 
del canal B mientras no haya terminado la primera del A. En esto consiste la sincroniza- 
ci6n de canales. Hay dos formas de conseguirla: 

SOUND 1,200,1000 
SOUND 3,90,200 

En este ejemplo hemos dirigido la segunda nota a A y B, y por lo tanto no puede sonar 
mientras no haya concluido la primera. La limitaci6n de este m6todo es que el sonido que 
se envia a varios canales tiene que ser igual en todos ellos (en este caso, ,90,200 era igual 
para el A que para el B). El otro metodo es el siguiente: 

SOUND 1,200,2000 
SOUND 1+16,90,200 
SOUND 2+8,140,400 

Aqm' hemos hecho que la segunda nota de A se sincronice con el sonido de B (y que este 
se sincronice con el canal A). La ventaja de este metodo es evidente: las notas sincroniza- 
das pueden ser (y en este caso son) diferentes. Estos mimeros de sicronizacion tambien 
son interpretables bit a bit: 

8=2t3, 16=2T4. 32=2t5 

Asi, el niimero de situaci6n de canales se puede considerar como mimero binario cuyos 
digitos tienen el siguiente significado: 



Sincr. con 


Sincr. con 


Sincr. con 


Sonar en 


Sonar en 


Sonar en 


C 


B 


A 


C 


B 


A 


Sumar 32 


Sumar 16 


Sumar 8 


Sumar 4 


Sumar 2 


Sumar 1 



Por ejemplo, para hacer sonar una nota en el canal C sincronizado con el A: 

1 10 

fiste es el mimero binario 1100, equivalente a 8+4 en decimal. 

Asi pues, el numero de situaci6n de canales 12 ordena a la maquina que haga sonar una 
nota en el canal C y que espere por una nota que debe sonar en el canal A y que ha sido 
marcada para sincronizarla con el C. 

Si ahora sumamos 64 (=2T6) al pardmetro, estamos indicando que la nota debe ser reteni- 
da. Esto significa que no va a sonar mientras no la liberemos con la orden RELEASE. 

Finalmente, si sumamos 128 (=2T7), borramos la cola de sonido del canal especificado. 
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Por ejemplo, si hemos ordenado un sonido que va a durar un buen rato, podemos anular- 
lo borrando la cola del canal correspondiente: 

SOUND 1,248,30000 (esta nota dura 5 minutos) 

SOUND 1+128,0 (pero esta la detiene) 

Cuando se este en modo directo, la forma mas rdpida de interrumpir un sonido es pulsar 
[<-BORR] al principio de la linea; el pitido que asi se produce borra todas las colas de 
sonido. 

Ahora que ya sabemos enviar sonido a cualquier combinacion de canales (con sincroniza- 
cion, si es necesario), vamos a intentar producir algo mas agradable que los molestos piti- 
dos que produce una orden SOUND en esta forma sencilla. Lo haremos dotando al soni- 
do de una envolvente: una grdfica que define c6mo evoluciona la intensidad del sonido 
a lo largo del tiempo. Las notas producidas por los instrumentos musicales tienen una fase 
inicial de ataque en la que el volumen sube muy deprisa; despues se mantiene a un nivel 
algo inferior hasta que finalmente decae gradualmente a cero. En el ordenador se puede 
dar una envolvente de este tipo a las notas producidas por la orden SOUND. La instruc- 
cion con la que se programa la envolvente es ENV. Veamos un ejemplo sencillo: 

ENV 1.5,3,4,5,-3,8 
SOUND 1,142,0,0,1 

La instrucci6n ENV se debe ejecutar antes que la SOUND que la utiliza. Para invocar 
una envolvente en una instruccion SOUND se pone como quinto pardmetro de este el nii- 
mero de referenda de la envolvente, en este caso el 1, que es el mimero con que se la cre6 
en la instruccion ENV. Los parametros de ENV describen tanto la duracidn como el volu- 
men de la nota, de modo que en SOUND podemos poner en lugar de los datos de dura- 
ci6n y volumen. La envolvente del ejemplo anterior hace que la nota crezca en 5 etapas, 
en cada una de las cuales el volumen aumenta en 3 unidades y cuya duracidn es de 4 cent6- 
simas de segundo. Despues se especifica que el volumen debe decaer en 5 etapas, -3 uni- 
dades en cada una, siendo la duracion de cada etapa 8 centesimas de segundo. Es decir, 
el primer parametro de ENV es el mimero de referenda de la envolvente y va seguido por 
grupos de tres numeros. Dentro de cada grupo, el primer pardmetro es el mimero de esca- 
lones de variacion del volumen; el segundo, la amplitud de esos escalones; y el tercero, 
su duracion. La duracidn total de cada secci6n sera igual al producto del primer parame- 
tro (numero de escalones) por el tercero (duracion de cada escal6n). El aumento o dismi- 
nucion total del volumen es igual al producto del primer pardmetro por el segundo (varia- 
cion del volumen por escalon). La duracion total de una envolvente es la suma de las co- 
rrespondientes a las secciones que la integran. 
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En el ejemplo anterior, SOUND fijaba en el volumen inlcial de la nota. Pero esto no 
tiene que ser necesari2imente asi. En el siguiente ejemplo el volumen decrece desde el valor 
inlcial 15 y luego vuelve a subir: 

ENV 2,5,-2.1,20,0,1,10,1.1 
SOUND 1,142,0,15,2 

El mimero de esta envolvente es el 2. Consta de tres secciones. En la primera el volumen 
se reduce en 5 escalones de -2; es decir, varia a traves de 5 etapas y en cada una se reduce 
en 2 unidades. La duracion de cada etapa es de 1 centesima de segundo. La segunda sec- 
cion tiene 20 etapas en las que no varia el volumen (0) y cada una de las cuales dura 1 
centesima de segundo. Finalmente, la tercera seccion consta de 10 etapas, con un incre- 
mento de volumen de 1 unidad y duracion de 1 centesima de segundo •cada una. 

La instruccidn SOUND especifica un volumen inicial de 15; al final de la primera seccion 
ha decrecido hasta 5; se mantiene a ese nivel durante 20 centesimas de segundo y luego 
vuelve a crecer hasta alcanzar el nivel 15. 

Para mejor visualizar y disenar la forma de las envolventes conviene dibujarlas en un pa- 
pel milimetrado y leer en el los valores de los parametros requeridos. En las dos figuras 
siguientes mostramos las dos envolventes definidas hasta ahora: 



Variacidn 
relativa de 
volumen ^ 



NOMERO de ESCALONES: 5 
ALTURA DE ESCALON: 3 
DURACION DE ESCALON: 4 



NUMERO DE ESCALONES: 5 
ALTURA DE ESCALIjN: -3 
DURACION DE ESCALON: 8 



_^ unidades de 

1/100 segundos 
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Variacidn , , 
relatjva de 
volumen 



1 2 34 5 6 7 e 910111213141516 17 16192021 ZZ MM ^262728 M3031 32 33 3435 




NUMERO DE 
ESCALONES: 5 
ALTURA DE 
ESCALON: -2 
DURACION DE 
ESCALON: 1 



NUMERO DE ESCALONES: 20 
ALTURA DE ESCALON: 
DURACION DE ESCALON: 1 




unidades de 
1/10O segundos 



El maximo niimero de secciones que se puede incluir en una envolvente es 5; como cada 
seccion requiere 3 parametros, la instrucci6n ENV puede Uegar a tener 16 parametros en 
total, contando el primero, que indica cual de las 15 envolventes posibles se esta definien- 
do. Podemos imaginar los numeros de volumen como dispuestos en circulo; si vamos su- 
biendo de nivel y sobrepasamos el 15, volvemos al 0; andlogamente, si intentamos descen- 
der por debajo del 0, volvemos al 15. Por ejemplo, en 

ENV 3,9,5,20 
SOUND 1,142,0,0,3 

la envolvente consta de una sola seccion de 9 etapas, cada una de las cuales incrementa 
el volumen en 5 unidades y diu-a 20 centesimas de segundo. Al terminar la tercera etapa, 
el volumen ha subido de a 15; en la cuarta etapa volvera a 4; en la quinta a 9, etc. El 
proceso esta ilustrado en la figura de la pagina siguiente. 
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Varaci6n 
rslatjva de 
vohjmen 



15- 

13- 



10- 
9 



unidades de 
1/100 segundo 



NUMERO de ESCALONES: 9 
ALTURA DE ESCALON: 5 
DURACION DE ESCALON: 20 



El margen de valores para el niimero de escalones es de a 127. En cada uno el valor pue- 
de variar entre - 128 y + 127 (los valores negativos representan disminuci6n). La duraeion 
de cada escal6n puede ser de entre y 255 (cent6sinias de segundo). 

Ya sabemos c6mo variar el volumen de una nota. Ahora podemos estudiar como se define 
la variaci6n de su tono con el tiempo para producir efectos tales como el 'vibrato'. 

El metodo es muy parecido al de las envolventes de volumen. Las envolventes de tono 
se definen con la instrucci6n ENT. Por ejemplo: 

ENT 1,5.1.1,5,-1,1 
SOUND 1,142,10.15..1 

Las envolventes de tono se invocan con la instruccidn SOUND poniendo en 6sta como 
sexto pardmetro el numero de referenda de la envolvente. La instruccion ENT tiene que 
ser ejecutada antes que la SOUND que la utiliza. 

Este primer ejemplo de ENT define la envolvente de tono numero 1. La primera seccion 
consta de 5 etapas; en cada una el periodo de tono crece en 1 unidad; cada una dura 1 
cent6sima de segundo. La segunda secci6n consta de 5 etapas; la variacibn del periodo 
de tono en cada una de ellas es - 1 (descenso); la duraci6n de cada etapa es de 1 cent6sima 
de segundo. La duraci6n total es, pues, 5+5=10 cent&imas de segundo. Obs6rvese que 
esta duraci6n ha sido especificada en SOUND, ya que la duraeion de la envolvente de 
tono no determina la duraeion de la nota (mientras que si lo hace la envolvente de volu- 
men). Si la duraci6n especiHcada en SOUND es menor que la de la envolvente, el final 
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de &ta se perderd. Si es mayor, el final de la nota se ejecutard a tono constante. Esto ulti- 
mo es tambien aplicable a las envolventes de volumen. 

(Notese la ausencia del mimero de envolvente de volumen en la ultima instrucci6n 
SOUND, debida a que aiin no hemos definido una envolvente de volumen para este so- 
nido.) 

Las envolventes de tono normalmente duran menos que la nota. Se puede hacer que la 
envolvente se repita mientras la nota estd sonando. Para ello se especifica un numero de 
envolvente negativo, cuyo valor absoluto se cita en la instrucci6n SOUND: 

ENT -5.4,1.1.4.-1,1 
SOUND 1,142,100,12„5 

Esta repetici6n de la envolvente produce el efecto 'vibrato'. Cuando se disefLan envolven- 
tes de tono, es conveniente que el tono varie simftricamente con respecto al valor inicid, 
de forma que al repetir la envolvente el tono no se desvfe demasiado con respecto al valor 
central. Pruebe el siguiente sonido: 

ENT -6,3,1,1 
SOUND 1,142,90.12.,6 

Habra observado que la frecuencia ha disminuido drdsticamente. Esto ha ocurrido por- 
que la envolvente impone un aumento del periodo de tono de 3 unidades y se repite 30 
veces (90/3). No obstante, ese efecto se puede aprovechar para imitar trinos y sirenas: 

ENT -7.20.1,1.20.-1.1 
SOUND 1.100.400.12..7 

ENT -8.60,-1.1,60.1.1 
SOUND 1.100,480,12„8 

Se pueden de^nir hasta 15 envolventes de tono, con mimeros de referenda del 1 
al 15; los mimeros negatives indican que la envolvente se repite. Para cada secci6n, el mi- 
mero de escalones puede estar entre y 239. La variacidn del periodo de tono en cada 
escal6n puede ser de entre - 128 y + 127. La duracion de cada escal6n puede ser de entre 
y 255 (centesimas de segundo). Cada envolvente puede tener hasta 5 secciones. 

El ultimo pardmetro que se puede incluir en la instrucci6n SOUND, el s^ptimo, caracteri- 
za el nivel de ruido que se aiiade al sonido. Observese que s61o hay un canal de ruido y 
que, por consiguiente, cada vez que se especifica un nivel de ruido se anula la anterior 
especificaci6n. 
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El ruido se puede mezclar con un tono, pero tsimbi^n se lo puede programar por separado, 
para lo cual se debe poner un como periodo de tono en SOUND. Esto es util para imitar 
ruidos de percusion: 

ENT -3,2,1.1,2.-1,1 

ENV 9,15,1,1,15,-1,1 

FOR a=1 TO 10:SOUND 1,4000,0,0,9,3,15:NEXT 

Un ruido como este puede servir de base para imitar el de una locomotora. Observese que 
hemos combinado los dos tipos de envolvente y el ruido. En SOUND hemos puesto para 
los parametros de duracion y de volumen, por lo que estas caracteristicas quedan contro- 
ladas por las envolventes de volumen. 

Como ya estamos en condiciones de utilizar SOUND, ENV y ENT a plena potencia, va- 
mos a estudiar algunas otras ordenes y funciones. 

Como el lector recordari, al describir el primer pardmetro de SOUND dijimos que si le 
sumdbamos el niimero 64 el sonido quedaba 'retenido' en la cola, y que no sonaria mien- 
tras no lo liberdsemos. La forma de liber^lo es ejecutar la orden RELEASE. Esta palabra 
va seguida de un niimero cuyos bits determinan a que canales afecta la orden: 

4 significa canal C 
2 significa canal B 
1 significa canal A 

Los canales se combinan sumando los numeros correspondientes. Asi, para liberar el soni- 
do de los tres canales la orden que se requiere es: 

RELEASE 7 

donde 7=1+2+4. Si no hay sonido retenido en ningun canal, la orden no tiene efecto. 
Pruebe lo siguiente: 

SOUND 1+64,90 

SOUND 2+64,140 

SOUND 4+64,215 

RELEASE 3:F0R t=1 TO 1000:NEXT:RELEASE 4 

No se produce ningun sonido mientras no se ejecuta la primera orden RELEASE, la cual 
libera los sonidos de los canales A y B. Despues de una pausa, la segimda orden RELEA- 
SE libera el canal C. 

Hay otro metodo para sincronizar sonidos. Cuando se retiene un sonido sumando 64 a 
su niimero de situacion de canal, no s61o queda el retenido, sino todos los que se envien 
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a continuacion a ese mismo canal. Si se envian mas de cuatro sonidos a una cola que esta 
retenida, la maquina queda bloqueada hasta que se libere la cola (posiblemente al ejecu- 
tarse una subrutina invocada por AFTER o EVERY), fista no es luia buena forma de ges- 
tionar los sonidos, ya que la mdquina se detendra cada vez que se llene una cola. Lo mis- 
mo ocurre si se ejecutan varias ordenes SOUND seguidas. Pruebe este programa: 

10 FOR a=1 TO 8 

20 SOUND 1,100*3,200 

30 NEXT 

40 PRINT' hola" 

run 

El texto no aparece en la pantalla inmediatamente, sino al cabo de tres segundos. Esto 
ocurre porque el programa no puede Uegar a la linea 40 mientras no haya espacio libre 
en la cola para almacenar todos los sonidos. 

BASIC dispone de un mecanismo de interrupci6n, similar al que se utiliza en AFTER, 
EVERY y ON BREAK GOSUB, mediante el cual se puede hacer que se ejecute una subru- 
tina cada vez que queda espacio libre en una cola especificada: 

10a=0 

20 ON SQ(1) GOSUB 1000 

30 PRINT a; 

40 GOTO 30 

1000 a=a-l-10 

1010 SOUND 1,a,200 

1020 IF a<200 THEN ON SQ(1) GOSUB 1000 

1030 RETURN 

run 

Observe que el programa no se detiene. La instruccion SOUND no se ejecuta mientras 
no hay espacio Hbre en la cola del cansd A (1), hecho que detecta la orden ON SQ(1) GO- 
SUB de la linea 20. Esta orden inicializa un mecanismo de interrupcion que ejecuta la 
subrutina cada vez que queda un hueco libre en la cola especificada. El mecanismo tiene 
que ser reinicializado cada vez que se ejecuta la subrutina (linea 1020). En este ejemplo, 
la reinicializacion solo se produce si a es menor que 200. 

En un programa que Ileve a cabo acciones relativamente lentas (por ejemplo, mover obje- 
tos por la pantalla), se puede poner musica de fondo programando una subrutina que eje- 
cute una nota cada vez que quede un hueco hbre en la cola. De esta forma se asegura que 
el programa no se va a detener en espera de que quede espacio en la cola. Si los valores 
de las notas estan contenidos en hstas DATA, se puede hacer que la subrutina de sonido 
deje de reinicializarse cuando los datos esten a punto de agotarse. 
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EI pardmetro que va entre par^ntesis en la instrucci6n ON SQ( ) GOSUB puede ser 1, 
2 o 4, dependiendo del canal cuya cola se desee examinar. 

Hay una funcidn, SQ( ), que se puede utilizar para determinar el estado de los canales 
de sonido. Su pardmetro puede ser 1 , 2 o 4. El valor generado por la funci6n se interpreta 
bit a bit segiin la siguiente tabla: 



Bit Decimal Significado 



0, 1, 2 1 a 4 Niimero de huecos libres en la cola 

3 8 La primera nota de la cola estd marcada para sincronizar con el 

canal A 

4 16 La primera nota de la cola estd marcada para sincronizar con el 

canal B 

5 32 La primera nota de la cola estd marcada para sincronizar con el 

canal C 

6 64 La primera nota de la cola estd retenida (esta a 1 el bit de 

retenci6n) 

7 128 En este momento estd sonando una nota 



Pruebe el siguiente ejemplo: 

10 SOUND 2,200 
20 x=SQ(2) 
30 PRINT BIN$(x) 
run 

La linea 30 escribe el niimero binario 10000100. El bit 7 estd a 1, lo que indica que en 
el canal habia una nota sonando cuando se ejecutd la linea 20. Los tres digitos menos sig- 
nificativos son 100; equivalen al niimero decimal 4, y esto quiere decir que habia cuatro 
espacios libres en la cola. Esta f unci6n examina la situaci6n del canal en un puiito especif i- 
co del programa; en cambio, ON SQ( ) GOSUB examina la cola, y reacciona en conse- 
cuencia, en un punto indeterminado. 

Hasta ahora todos los ejemplos ban consistido en hacer sonar una o dos notas. Si se va 
a ejecutar un grupo de notas independientes, por ejemplo las de una melodia, sus caracte- 
risticas se pueden guardar en lineas DATA, para luego leerlas con READ e introducirlas 
en SOUND: 



8/46 Cuando usted guste . . . 



10 FOR octava=-1 TO 2 

20 FOR x=1 TO 7:REM notas por octava 

30 READ nota 

40 SOUND 1,nota/2toctava 

50 NEXT 

60 RESTORE 

70 NEXT 

80 DATA 426,379,%8,319,284,S3,239 

run 

El ejemplo final de esta seccidn se basa en este concepto. En los canales A y B se hace 
sonar una melodia con ritmo, utilizando la sincronizaci6n. Este ejemplo muestra c6mo 
utilizar las listas DATA para incluir informaci6n sobre nota, octava, duracion y sincroni- 
zaci6n: 

10 REM la linea 180 da ia melodia en clave de agudos 

20 REM la linea 190 da la melodia en clave de graves 

30 DIM escala%(12):F0R x%=1 TO 12:READ escala%(x%):NEXT 

40 canal1%=1:READ canal1$:canal2%=2:READ canal2$ 

50CLS 

60 velocidad%=12 

70 escala$=" a-b b c+c d-e e f+f g+g" 

80 ENV 1,2,5,2,8,-1,10,10,0,15 

90 ENV 2,2,7,2,12,-1,10,10,0.15 

100 ENT -1,1,1,1,2,-1,1,1,1,1 

110 DEF FNm$(s$,s)=MiD$(s$,s,1) 

120 canal1%=1:G0SUB 200 

130 canal2%=1:G0SUB 380 

140 IF canal1%+canal2%>0 THEN 140 

150 END 

160 DATA &777,&70c,&6a7,&647,&5ed,&598 

170 DATA J^7,&4fc,&4b4,&470,&431,&3f4 

180 DATA 4cr4f4f1f1g1A1-B2C2f4g2g1A1-B6A2Cr1f1g1f1g1a1- 
b1 A1 -b2C2g2A2g2f 1 g1a2g2f6e2c2e2c2g2e2c1 - B1 A2g2f4e4d 
8c4f3f 1 c2d4-b2f r2- B2A2g2f6e2gr4C4- Blalf 1 -b1g2c2- b4a 
4g4f r6A2A2- B4- B2Ar2- B2A2g2f6e2g4C4- B1 Alf 1 - B1g2C2- B4 
A4g8f. 

190 DATA r4f4f8f4e4c4fr8f4e2f2e4d2e2d8c8c6e2f4g4g8e4f3f 
1 C4dr8g4cr4e4c6f2d4c4c8f r8-e4dr8g8c4e4c6f2d4c4c8f . 

200 REM enviar sonido al canal A 

210 p1$=FNm$(canal1$,canal1%) 
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220 IF p1$<>"f" THEN r1%=0:GOTO 240 

230r1%=16:canal1%=canal1%+1:p1$=FNm$(canal1$,canal1%) 

240 IF p1$="." THEN canal1%=0: RETURN ELSE l1%=VAL(p1$) 

250 canal1%=canal1%+1 

260 n1$=FNm$(canal1$,canal1%) 

270 canal1%=canal1%+1 

280 IF n1$="+" OR n1$="-" THEN 350 

290 n1$=" "+n1$ 

300nd1%=(1+INSTR(escala$,LOWER$(n1$)))/2 

310 IF ASC(RIGHT$(n1$,1))>96 THEN o1%=8 ELSE o1%=16 

320 SOUND 1+r1%,escala%(nd1%)/o1%,veiocidad%*l1%,0,1,1 

330 ON SQ(1) GOSUB 200 

340 RETURN 

350 n1$=n1$+FNm$(canal1$,canal1%) 

360 canal1%=canal1%+1 

370 GOTO 300 

380 REM enviar sonido al canal B 

390 p2$=FNm$(canal2$,canal2%) 

400 IF p2$<>"r" THEN r2%=0:GOTO 420 

410 r2%=8:canal2%=canal2%+1:p2$=FNm$(canal2$,canal2%) 

420 IF p2$="." THEN canal2%=0:RETURN ELSE l2%=VAL(p2$) 

430 canal2%=canal2%+1 

440 n2$=FNm$(canal2$,canai2%) 

460 canal2%=canal2%+1 

460 IF n2$="+" OR n2$="-" THEN 530 

470n2$=" "+n2$ 

480 nd2%=(1 +INSTR(escala$,LOWER$(n2$)))/2 

490 IF ASC(RIGHT$(n2$,1))>96 THEN o2%=4 ELSE o2%=8 

500 SOUND 2+r2%,escala%(nd2%)/o2%,velocidad%*l2%,0,1,2 

510 ON Sa(2) GOSUB 380 

520 RETURN 

530 n2$=n2$+FNm$(canal2$,canal2%) 

540 canal2%=canal2%+1 

550 GOTO 480 

run 
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Dicho graficamente . 



En esta seccion vamos a repasar las funciones graficas del ordenador. Iremos construyen- 
do paso a paso un primer ejemplo para ilustrjir el funcionamiento de las diversas instruc- 
ciones. 

Para empezar, dividimos la pantalla en una ventana de texto (linea 40) y una ventana gra- 
fica Ginea 30). Ademas, establecemos el modo de pantalla y asignamos tintas parpadean- 
tes a dos plumas (lineas 20): 

10 REM MASK y TAG en una ventana 
20 MODE 1:iNK 2,10,4:INK 3,4,10 
30 ORIGIN 440,100,440,640,100,300 
40 WINDOW 1,26,1,25 
50CLG2 

Si ejecuta este programa, podra ver un cuadrado parpadeante al lado derecho de la panta- 
lla. Este cuadrado ha sido borrado con la pluma numero 2 (magenta/cyan) por la linea 
50. El origen de coordenadas ha sido trasladado al extremo inferior izquierdo del cuadra- 
do. La orden MODE ha Uevado el cursor al origen de coordenadas (X=0, Y=0); podemos 
dibujar una diagonal en el cuadrado con la linea 60: 

60 DRAW 200,200,3 

Ejecute el programa y observe el efecto. Aiiada ahora: 

80 MOVE 0,2:FILL 3 

La linea 80 Ueva el cursor al interior de una de las dos mitades del cuadrado y la rellena 
con la pluma 3. El limite del recinto que se rellena es el horde de la ventana grafica (que 
en este caso es 'tambien el del cuadrado) y cualquier recta que se haya dibujado con la 
pluma grafica actual (la 3) o con la que se utiliza para rellenar (tambien la 3). 

Ejecute esta version del programa. 

Para comprobar lo dicho acerca de los limites del recinto, aiiada la siguiente linea 70. Ob- 
serve que la unica raz6n para que el rellenado se limite a una mitad del cuadrado es que 
la pluma de rellenar es la misma con la que se dibujo la diagonal. 

70 GRAPHICS PEN 1 
run 
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Modifique la linea 80 para rellenar con la pluma 1 y ejecute el programa para comprobar 
esto ultimo. Cuando lo haya hecho, vuelva a dejar la linea 80 como estaba (FILL 3). 

Aiiada ahora las lineas siguientes para dibujar un cuadrado: 

100 MOVE 20,20 
110 DRAW 180.20 
120 DRAW 180,180 
130 DRAW 20,180 
140 DRAW 20,20 
run 

Este cuadrado ha sido dibujado con la pluma 1 a causa de la linea 70. Si omiti^ramos la 
linea 70, tendriamos que incluir M' como tercer pardmetro de MOVE en la linea 100, o 
bien en el DRAW de la linea 1 10, para pedir al ordenador que cambiase la pluma grafica. 



lineas discontinuas 

Las rectas que dibujemos no tienen que ser necesariamente de trazo continuo, sino que 
pueden ser de puntos. La orden MASK nos permite deflnir el tamaiio de los puntos. La 
forma que defmamos se repetird cada 8 pixels. Si la primera linea deja incompleto el ulti- 
mo grupo de 8 pixels, la siguiente empezar^ dibujando los puntos restantes. Con una nue- 
va orden MASK (quizd con el mismo parimetro) se hace que el siguiente dibujo empiece 
por el prjncipio del grupo. 

El par^etro de MASK es en realidad un byte binario en el que los bits que estdn a 1 
indican que el pixel correspondiente se debe iluminar con la tinta de la pluma. En nuestro 
ejemplo vamos a poner el pardmetro directamente en forma binaria (identificada por el 
prefijo &X); queremos que cada grupo de 8 pixels tenga cuatro pixels iluminados en el 
centro y dos apagados a cada lado. De esta forma las rectas seran de trazos, con cuatro 
pixels encendidos y cuatro apagados. Aiiada la linea siguiente: 

90 MASK &X00111100 
run 
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Pero vemos que el enlace en los rincones no es como nos gustaria. Lo que ocurre es que 
los pixels de las esquinas se dibujan dos veces: una al final de una recta y otra al principio 
de la siguiente. Una forma un tanto torpe de resolver este problema es incluir las lineas: 

115 MOVE 180,22 
125 MOVE 178,180 
135 MOVE 20,178 
RUN 

Pero es mas fdcil poner ',0' como segundo pardmetro de MASK para indicar que no se 
debe dibujar el primer punto de cada linea. Modifique la linea 90: 

90 MASK &X001 11 100,0 

y borre las que ya no necesitamos: 

115 
125 
135 

Ejecute el programa y observe que el cuadrado vuelve a ser sim6trico. Si hubieramos pues- 
to ',1' como segundo pardmetro de MASK, todas las rectas seri'an de trazo continuo con 
el primer pixel encendido. 

Ahora observe los huecos entre trazos. En el triangulo inferior derecho hay algo que no 
estd en el otro: es el papel grdfico, al que se ha dado el mimero 2 con la orden CLG 2 
de la h'nea 50, pero que es invisible en el tridngulo superior porque es del mismo color 
que el fondo. Modifique la linea 50: 

50 CLG 2:GRAPHICS PAPER 

y vuelva a ejecutar el programa. El papel ya es visible en todos los hordes del cuadrado. 

Podemos hacer que el papel grdfico sea invisible ('transparente'). Esto significa que cuan- 
do dibujemos lineas de trazos, los huecos no tapardn lo que haya debajo. Los dibujcs se 
hacen transparentes anadiendo M' a la orden GRAPHICS PEN. (Para hacerlos opacos 
el parametro debe ser ',0'). Modifique la linea 70: 

70 GRAPHICS PEN 1,1 
run 

y observe el resultado. 
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Adem^s de dibujar rectas (y puntos sueltos), podemos escribir textos en la posicion del 
cursor grafico. La ventaja con respecto al metodo normal de escritura de textos es que 
asi podemos situar los textos con mayor precision (justamente en el pixel deseado, en vez 
de a saltos de 8 pixels). 

Para escribir caracteres por este metodo, el cursor se pone en el lugar en el que queremos 
que quede el punto superior izquierdo del caracter, despues ejecutamos la orden TAG (o 
TAG #x para otros canales) seguida de las ordenes PRINT normales. El cursor grafico 
avanza automaticamente 8 pixels hacia la derecha cada vez que se escribe un caracter. 
Anada las siguientes linejis: 

160 MOVE 64,108 

170 TAG 

180 PRINT "ELENA" 

190 TAGOFF 

run 

(BASIC envia siempre sus mensajes a la ventana de texto, cualquiera que sea la situacion 
del conmutador TAG/TAGOFF, pero es una buena costumbre cancelar TAG en cuanto 
se haya terminado de escribir en la pantalla grafica.) 

Pero ^que son las flechas que ban salido a la derecha del nombre? Muy sencillo: el codigo 
de retorno del carro, CHR${13), y el de avance de linea, CHR$(10), en version grafica. 
Las rutinas del firmwju-e que escriben en la pantalla grafica traducen los 32 primeros ca- 
racteres ASCII a sus versiones graficas [igual que si se los enviara a la pantalla de texto 
precedidos de CHR${1)]. La razon es que los 32 codigos de control normalmente solo tie- 
nen utilidad en la pantalla de texto; por lo mismo, si sobrepasamos el borde derecho al 
escribir en la pantalla grafica, el ordenador lo permite y no salta automaticamente a la 
li'nea siguiente. 

Los signos de retorno del carro y de avance de li'nea se suprimen poniendo un punto y 
coma al final de la instruccion PRINT: 

180 PRINT "ELENA"; 
run 

El texto enviado a la pantalla grafica usjmdo TAG depende de las mismas ordenes GRAP- 
HICS PEN que los dibujos. Asi, en el ejemplo, el nombre lo escribe GRAPHICS PEN 
1, y es transparente. La orden 

150 GRAPHICS PEN 1,0 
run 
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selecciona papel opaco, mientras que 

150 GRAPHICS PEN 0,1 
RUN 

escribe con pluma niimero en modo transparente. 

Borre la linea 150 y ejecute el programa. La pluma grafica vuelve a ser 1 en modo transpa- 
rente (linea 70). 



Caracteres transparentes 

Hay un c6digo de control que permite escribir caracteres en la pantalla de texto en modo 
transparente. Anada las siguientes li'neas: 

200 PRINT#2.CHR$(22);CHR$(1) 

210 LOCATE #2,32,14:PRINT#2/' ******" 

220 LOCATE #2.32,14:PRINT#2/' " 

230 PRINT#2,CHR$(22);CHR$(0) 
run 

La linea 200 pone el canal #2 en modo transparente. Observe que los signos de subrayar 
se funden con los asteriscos sin borrarlos. De esta manera se pueden formar caracteres 
compuestos, incluso en varios colores. La linea 230 vuelve a poner el canal #2 en modo 
opaco. 



Modos de tinta 

Es posible dibujar graficos de tal modo que la tinta con la que se dibuja interaccione con 
la ya presente en la pantalla. El mimero de tinta final para cada punto se calcula realizan- 
do una operacion 16gica con la antigua tinta del pixel y la tinta de la pluma grafica. La 
operacion puede ser AND, OR o XOR. El modo de tinta se puede especificar como cuarto 
parametro en las instrucciones DRAW/DRAWR, PLOT/PLOTR o MOVE/MOVER, o 
bien enviando a la pantalla los codigos de control CHR$(23)+CHR$(modo). En cualquier 
caso, el modo es 1 para XOR, 2 para AND y 3 para OR. El valor restaura el modo nor- 
mal, en el que se dibuja sin interacci6n. 
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En el siguiente ejemplo ilustramos la combinacion XOR. Este modo se utiliza habitual- 
mente en los denominados 'graficos de tortuga^, porque tiene la propiedad de que si se 
dibuja algo dos veces se restaura la situaci6n original. La nitina que dibuja el cuadrado 
se ejecuta dos veces (en las Uneas 110 y 130), asi como la escritura con TAG Gineas 170 
y 190). Las 6rdenes FRAME introducen un retardo suficiente como para que el efecto sea 
visible. N6tese que las drdenes de la linea 90 no Uevan primer pardmetro. Esto es correcto 
trat^dose de estas 6rdenes concretas; lo hemos hecho asi para no modiflcar las caracte- 
risticas correspondientes. 

El tercer parametro (,1) de la orden MOVE de la linea 220 selecciona la plxmia grifica 
niimero 1, anulando asi la '3' seleccionada en la b'nea 60. El modo XOR se establece en 
el cuarto parametro de la orden DRAWR de la linea 230. Observese que tambi6n aqui 
hemos omitido un parametro. 

Podemos observar una consecuencia del efecto del segundo parametro de MASK supri- 
miendo esta orden de la linea 90. Los rincones del cuadrado desaparecen porque se dibu- 
jan dos veces (al final de una recta y al principio de la siguiente) con XOR. 

10 REM modos de tinta XOR 

20 MODE 1:INK 2,10:INK 3,4 

30 ORIGIN 440,100,440,640,100,300 

40 WINDOW 1,26,1,25 

50 CLG 2:GRAPHiCS PAPER 

60 DRAW 200,200,3 

70 MOVE 2,0: FILL 3 

80 ORIGIN 440,0,440,640,0,400 

90 GRAPHICS PEN ,1:MASK ,0 

100 FOR y=60 TO 318 STEP 2 

110 GOSUB 220 

120 FRAME:FRAME 

130 GOSUB 220 

140 NEXT 

150 TAG 

160 FOR y=60 TO 318 STEP 2 

170 MOVE 96,y:PRINT CHR$(224); 

180 FRAMEiFRAME 

190 MOVE 96,y:PRINT CHR$(224); 

200 NEXT 

210 END 

220 MOVE 90,y,1 

230 DRAWR 20,0„1 

240 DRAWR 0,20 
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250 DRAWR -20,0 
260 DRAWR 0,-20 
270 RETURN 
run 



Animacion 



Se puede dar ilusion de movimiento cambiando adecuadamente los colores asignados a 
las tintas. Aunque el contenido de la memoria de la pantalla no se modifica, los dibujos 
parecen moverse. En el siguiente ejemplo recurrimos al modo OR para escribir los niime- 
ros 1 al 4 en la pantalla. (La forma se determina examinando el carActer que estd en el 
extremo inferior izquierdo de la pantalla y ampliando lo que alli se encuentra.) Los nume- 
ros se escriben sucesivamente con las tintas 1, 2, 4 y 8 y con el modo OR activado (en 
este caso mediante una sucesi6n de c6digos de control, b'nea 50). 

El bucle que empieza en la linea 160 realiza una rotaci6n de los colores de la paleta me- 
diante una f6rmula matematica que hace que se ilumine un niimero cada vez. Las tintas 
se establecen inspeccionandolas sucesivamente y determinando si contienen el componen- 
te binario que estamos buscando. Por ejemplo, el 3 fue dibujado con tinta 4; por lo tanto, 
para visualizar el niimero 3 debemos dar un color visible a todas las tintas cuyo mimero 
contenga un 4 binario. Esas tintas son: 

4(0100), 5(0101), 6(0110), 7(0111), 12(1100), 13(1101), 14(1110), 15(1111) 

En una aplicacion practica se calcularia qud tintas se deberian cambiar en cada etapa, y 
las lineas 180 a 200 se sustituirian por una rutina mas rapida. 

10 REM animacion con tintas 

20 ON BREAK GOSUB 220 

30 FOR i=f TO 15:INK i,26:NEXT 

40 m(1)=1:m(2)=2:m(3)=4:m(4)=8 

50 MODE 0:PRINT CHR$(23);CHR$(3);:TAG 

60 FOR p=1 TO 4 

70 GRAPHICS PEN m(p),1 

80 LOCATE #1,1,25:PRINT#1,CHR$(48+p); 

90 FOR x=0 TO 7 

100 FOR y=0 TO 14 STEP 2 

110 IF TEST(x*4,y)=0 THEN 140 

120 MOVE (x+6)*32,(y+6)*16:PRINT CHR$(143); 

130 MOVE (x+6)*32,(y+7)*16:PRINT CHR$(143); 
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140 NEXT y.x,p 

150 LOCATE #1,1,25:PRINT#1/' "; 

160 FOR p=1 TO 4 

170 FOR i=1 TO 25:FRAME:NEXT 

180 FOR i=0 TO 15 

190 IF (i AND m(p))=0 THEN INK 1,0 ELSE INK 1,26 

200 NEXT i,p 

210 GOTO 160 

220 INK 1,26 

run 



Sprites 



En el ejempio anterior hemos visto como se da ilusi6n de movimiento cambiando los colo- 
res despues de escribir con las tintas 1, 2, 4 y 8. Un efecto muy distinto se consigue si se 
utilizan las mismas tintas pero se manejan los colores de forma diferente. Este efecto se 
conoce con el nombre de 'pianos de color'; lo ilustramos en el siguiente ejempio. 

10 REM montanas 

20 DEFINT a-s.u-z 

30 INK 0,1:INK 1,26 

40 INK 2,6:INK 3,6 

50 FOR 1=4 TO 7:INK i,9:NEXT 

60 FOR 1=8 TO 15:INK i,20:NEXT 

70 MODE 0:DEG:ORIGIN 0,150:CLG:MOVE 0,150 

80 FOR x=16 TO 640 STEP 16 

90 DRAW x,COS(x)*150+RND*100,4 

100 NEXT 

110 MOVE 0,0:FILL 4 

120 cx=175:GOSUB 320 

130 cx=525:GOSUB 320 

140 SYMBOL 252,0,0,&C,&1F,&30,&7F,&FF 

150 SYMBOL 253,0,6,&E,&F2.2,&F2v&FE 

160 SYMBOL 254,0,&60,&70,&7F,&7F,&7F,&7F 

170 SYMBOL 255,0,0,0,&F8.&EC,&FE,&FF 

180 pr$=CHR$(254)+CHR$(255) 

190 pl$=CHR$(252)+CHR$(253) 

200 TAG:t=TIME 

210 FOR x=-32 TO 640 STEP 4 



8/56 Cuando usted guste 



220 x2=((608-x)*2)MOD 640:hl=RND*10:hr=50*SIN(x) 

230 GRAPHICS PEN 8,1:M0VE x.100+hr„3:PRINT pr$; 

240 GRAPHICS PEN 2.1:M0VE x2.115+hl„3:PRINT pl$; 

250 IF (TEST(x2-2,115+hl-12) AND 8)=8 THEN 380 

260 IF TIME-t<30 THEN 260 

270 FRAME:t=TIME 

280 GRAPHICS PEN 7,1:M0VE x.100+hr„2:PRINT pr$; 

290 GRAPHICS PEN 13,1:M0VE x2,115+hl„2:PRINT pl$; 

300 NEXT 

310 GOTO 210 

320 MOVE cx,100 

330 FOR x=0 TO 360 STEP 10 

340 DRAW cx+SiN(x)*50+10*RND,100+COS{x)*25+10*RND.1 

350 NEXT 

360 DRAW cx,100:MOVE cx,90:FILL 1 

370 RETURN 

380 ENT -1,1,1,1 

390 SOUND 1,25,400,15„1,15 

400 FOR y=100+hr TO -132 STEP -2 

410 GRAPHICS PEN 7,1:MOVE x,y„2:PRINT pr$; 

420 GRAPHICS PEN 8,1:M0VE x,y-2.,3:PRINT pr$; 

430 NEXT 

440 GOTO 70 

Para explicar como funciona, una vez mas tenemos que expresar los niimeros de INK en 
binario. Empezando por el niimero maximo (el 15), asignamos el color cyan a todas las 
tintas que tienen active el bit del '8' (de la 15 a la 8). Despues damos el color verde a todas 
las que tienen activado el bit del '4' (de la 7 a la 4). Las tintas 2 y 3 tienen a 1 el bit del 
'2' y les asignamos el color rojo. Finalmente, asignamos el color bianco a la tinta 1 y deja- 
mos la tinta en azul. 

Los grdficos se envian a la pantaUa en modo OR Oineas 230 y 240). El color que se ve 
en la pantalla en cada pixel esta determinado por el bit mas significativo del resultante 
en ese punto. Asi pues, una imagen que este en un piano 'mas significativo' predomina 
sobre otra que este en un piano 'menos significativo', pero el fondo se conserva y vuelye 
a ser visible si se retira la imagen 'mas significativa'. La forma de retirar la imagen consis- 
te en dibujarla en modo AND: las tintas 7, 1 1 , 13 y 14 borran las tintas 8, 4, 2 y 1 , respecti- 
vamente (lineas 280 y 290). 
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Graficos con el segundo banco de 64K de 
RAM (solo 6128) 

Para concluir este capitulo ofrecemos un programa 'diseflador de pantallas grificas' que 
utilizan los 64K adicionales de RAM. 

10 'Disefiador de pantallas, por David Radisic 

20 ' copyright (c) AMSOFT 1985 

30' 

40 'No olvide ejecutar BANKMAN antes que este programa 

50 '*******i|t*********4:*******l|c***4:********4:*««4E4:4:* 

60' 

70 ON ERROR GOTO 2740 

80 DEFINT a-x 

90 MODE 1:ch=127:ord=1:pn(0)=0:pn(1)=26:pn(2)=15:pn(3)=6:pn(4)=0:pn=1: 

norx=1:menu=1:zzz=HIMEM 
100 DIM orden$(22) 
110norx$(0)="Normar':norx$(1)="XOR ":norx$(2)="Transp":norx$(3)="XOR" 

120RESTORE:READords$(1).ords$(2):ord$=CHR$(16)+CHR$(&7F)+ords$(1) 
+ords$(2) 

130 READ ordnum:FOR 1=1 TO ordnum:READ orden$(i):NEXT 

140 READ parar$:IF parar$<>"**" THEN ord$(ord)=parar$:ord=ord+1:G0T0 

140 
150 WINDOW #0,1,40,1,3:PAPER #0,0:PEN #0,1:CLS #0 
160 WINDOW #1,1,40,4,4:PAPER #1,3:PEN #1,1:CLS #1 
170 ORIGIN 0,0,0,640,0,334 
180 x=320:y=200:MOVE x,y 

190 BORDER pn(4):F0R i=0 TO 3:INK i,pn(i):NEXT 

200 MASK255,0:PAPER 0:PEN IrPAPER #1,3:PEN #1.1:GRAPHICS PEN pn,norx 
210 IF ind<>5 THEN 280 
220 IF pn<2 THEN flecha$=CHR$(240):px=(pn+1)*13 ELSE IF pn<4 THEN 

flecha$=CHR$(241):px=(pn-1)*13 ELSE fiecha$=CHR$(243):px=37 
230 LOCATE px,2:PRINT flecha$; 

240 LOCATE 1,1:PRINT USING" PEN : ## PEN 1 : #r';pn(0);pn{1); 
250 LOCATE 29,2:PRINT USING"Border : #r';pn(4) 
260 LOCATE 1,3:PRINT USING" PEN 2 : ## PEN 3 : ##";pn(2);pn(3); 
270 LOCATE px,2:PRINr' "; 
280 LOCATE #1,1,1:PRINT #1,USING"X :#### Y :#### ";x;y;:PRINT#1," 

Modo de tinta: ";norx$(norx+(borrar*2));" " ; 
290 IF ind=0 THEN GOSUB 2260 
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300' 

310 GOSUB 970 

320' 

330 IF ind>0 THEN 390 

340 IF 1$="" THEN 390 

350 ord=INSTR(ord$,i$):iF ord=0 THEN 390 

360 IF ord=1 THEN CLG:x=320:y=200:GOTO 390 

370 IF ord=2 THEN RUN 70 

380 ON ord-2 GOSUB 1240,1410,1520,1640,1840.1860,1950,2020,2090,2120,2170, 

2200,26 60,2660,2660,2660,2390,2330,2200 
390 IF tx=0 AND ty=0 THEN 200 
400 IF ipd>0 THEN 440 
410 GOSUB 630 

420 GOSUB 680:FRAME:GOSUB 680 
430 GOTO 200 

440 MOVE tempx,tennpy,pn,1 
450 ON ind GOSUB 470,490,550,640 
460 GOTO 200 

470 PLOT x,y:GOSUB 630:PLOT x,y 
480 RETURN 

490 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y 
500 DRAW tempx,tempy+y:DRAW tempx,tempy 
510 GOSUB 630 

520 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y 
530 DRAW tempx,tempy+y:DRAW tempx,tempy 
540 RETURN 

550 MOVE tempx,tempy:DRAWR x,y 
560 IF treslados=0 THEN 580 
570 DRAW tempxx,tempyy:DRAW tempx,teinpy 
580 GOSUB 630 

590 MOVE tempx,tempy:DRAW tempx+x,tempy+y 
600 IF treslados=0 THEN RETURN 
610 DRAW tempxx,tempyy:DRAW tempx,tempy 
620 RETURN 

630 x=x+tx:y=y+ty: RETURN 
640 MOVE tempx,tempy:DRAW x,y 
650 GOSUB 630 

660 MOVE tempx,tempy:DRAW x,y 
670 RETURN 

680 ' dibujar y borrar cursor 
690 IF ind=5 THEN RETURN 
700 MASK 255,1 
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710 IF ind>1 THEN xx=tempx+x:yy=tempy+y ELSE xx=x:yy=y 

720 IF ind=4 THEN xx=x:yy=y 

730 IF ind=1 THEN xx=x:yy=y 

740 IF borrar=1 THEN 820 

750 GOSUB 790 

760 MASK 255,0 

770 IF i$=" " THEN GOSUB 2150:1$="" 

780 RETURN 

790 MOVE xx-4,yy,pn,1:DRAW xx+4,yy 

800 MOVE xx,yy-4:DRAW xx.yy+4 

810 MOVE xx,yy„xorn:RETURN 

820 nx=1:G0SUB 1220 

830 FRAMEiGOSUB 1220 

840 IF i$=" " THEN nx=norx:GRAPHICS PEN pn,1:GOSUB 1220 

850 !$="" 

860 IF ind<>6 THEN 760 

870 IF movido=0 AND j$<>"" AND (j$<CHR$(240) OR j$>CHR${247)) THEN 

ch=ASC(j$):movido=1 
880 IF movido=0 THEN RETURN 
890 LOCATE 5,2 
900 FOR i=ch-5 TO ch+5 
910 PEN ABS(i<>ch)+1 

920 ch$=CHR$(1)+CHR$(ABS(i+256)MOD 256) 
930 IF ch=i THEN PRINT' "ch$" "; ELSE PRINT ch$; 
940 NEXT 

950 PEN liPRINT' = "ch" "; 
960 GOTO 760 

970 ty=0:tx=0:GOSUB 680:FRAME:GOSUB 680 
980 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN ty=16 
990 IF INKEY(2)<>-1 OR INKEY{73)<>-1 THEN ty=-16 
1000 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN tx=-16 
1010 IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN tx=16 
1020 IF INKEY(21)<>-1 OR INKEY(76)<>-1 THEN tx=tx/8:ty=ty/8 
1030 IF tx=0 AND ty=0 THEN movido=0 ELSE movido=1 
1040 j$=INKEY$:l$=UPPER$(j$) 

1050 IF (i$=" " OR l$=CHR$(13)) AND ind>0 THEN 1090 
1060 IF ind=5 THEN 1120 
1070 IF ind=6 THEN 1170 
1080 RETURN 

1090 ON ind GOSUB 1240,1410,1640,1860,1950,2020 
1100 !$="" 
1110 RETURN 
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1120 IF movido=0 THEN RETURN 

1130 IF tx>2 THEN pn=(pn+1) MOD 5 ELSE IF tx<-2 THEN pn=ABS((pn<1)) 

*5-1+pn 
1140 IF tY>2 THEN pn(pn)=(pn(pn)+1) MOD 27 ELSE IF ty<-2 THEN pn{pn)= 

ABS((pn(pn)<1))*27-1+pn(pn) 
1150 GRAPHICS PEN pn:PEN #1,pn 
1160 tx=0:ty=0: BORDER pn(pn):RETURN 
1170 IF tx<0 THEN ch=ABS(ch+255) MOD 256 
1180 IF ty<0 THEN ch=ABS(ch+246) MOD 256 
1190 IF tx>0 THEN ch=(ch+1) MOD 256 
1200 IF ty>0 THEN ch=(ch+10) MOD 256 
1210 tx=0:ty=0: RETURN 

1220 TAG:MOVE xx-8,yy+6,pn,nx:PRINT CHR$(ch);:TAGOFF 
1230 RETURN 
1240 'C 

1250 IF lnd=1 THEN 1290 
1260 ro=1:G0SUB 2240 
1270 tempx=x:tennpy=y:md=1 
1280 RETURN 

1290 IF tempx=x AND tempy=y THEN 1390 
1300 PLOT x.y„1 

1310 tix=MAX(x,tempx)-MIN(tempx,x):tiy=MAX(y,tempy)-MIN(tempy,y) 
1320 ti=SQR((tix"2)+(tiy"2)) 
1330 ORIGIN tempx,tempy 
1340 PLOT 0,0,pn,0:MOVE 0,-ti 
1350 FOR z=0 TO Pl*2+0.01 STEP PI/{ti/2) 
1360 DRAW SIN(z+PI)*tl,COS(z+PI)ni,pn,norx 
1370 NEXT z 
1380 ORIGIN 0,0 

1390 x=tempx:y=tempy:tempx=0:tempy=0:ind=0 
1400 RETURN 
1410 ' R 

1420 IF lnd=2 THEN 1470 
1430 ro=2:G0SUB 2240 
1440 tempx=x:tempy=y:!nd=2 
1460 x=0:y=0 
1460 RETURN 
1470 IF norx=1 THEN 1500 

1480 MOVE tempx,tempy:DRAW tempx+x,tempy„norx 
1490 DRAW tempx+x,tempy+y:DRAW tempx,tempy+y:DRAW tempx,tempy 
1500 x=tempx:y=tempy:ind=0 
1510 RETURN 
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1520 ' . (reilenar) 

1530 ro=3:G0SUB 2240 

1540 GOSUB 1620:IF i$=" " THEN 1600 

1550 coioriim=VAL(i$) 

1560 ro=4:GOSUB 2240 

1570 GOSUB 1620:IF i$=" " THEN 1600 

1580 reilenador=VAL(i$) 

1590 MOVE x,y,colorlim:FILL rellenador 

1600 ind=0:i$="" 

1610 RETURN 

1620 i$=INKEY$:IF (i$<"ff- OR i$>"3") AND i$<>" " THEN 1620 

1630 RETURN 

1640 'T 

1650 IF ind=3 THEN 1700 

1660 ind=3:ro=5:GOSUB 2240 

1670 tempx=x:tempy=y 

1680 x=0:y=0 

1690 RETURN 

1700 IF tresiadosoO THEN 1770 

1710 ro=6:GOSUB 2240 

1720 MOVE 0,0,pn,1:GOSUB 590 

1730 tempxx=tempx+x:tempyy=teinpy+y:x=x/2:y=20 

1740 treslados=1 

1750 GOSUB 550:GOSUB 590 

1760 RETURN 

1770 IF norx=1 THEN 1800 

1780 MOVE tempxx,tempyy„norx:DRAW tempx.tempy 

1790 DRAW tenripx+x,tempy+y:DRAW tempxx,tempyy 

1800 tempxx=0:tempyy=0 

1810 x=tempx:y=tempy:treslados=0 

1820 tempx=0:tempy=0:ind=0 

1830 RETURN 

1840 '@ 

1850 norx=1:borrar=borrar XOR liRETURN 

1860 ' \ (iinea recta) 

1870 IF ind=4 THEN 1910 

1880 ro=7:GOSUB 2240 

1890 tempx=x:tempy=y:ind=4 

1900 RETURN 

1910 IF norx=1 THEN 1930 

1920 MOVE tempx,tempy„norx:DRAW x,y 

1930 x=tempx:y=tempy:ind=0 
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1940 RETURN 

1950 'I 

1960 IF ind=5 THEN ind=0:CLS:INK 3,coltemp:INK pn,coi:GOTO 1990 

1970 CLS:ind=5:BORDER pn(pn) 

1980 RETURN 

1990 FOR i=0 TO 3:INK i,pn(i):NEXT:BORDER pn(4) 

2000 IF pn=4 THEN pn=1 

2010 CLS: RETURN 

2020' A 

2030 IF ind=6 THEN 2070 

2040 tempx=0:tempy=0:CLS 

2050 borrar=1:ind=6:norx=1:movido=1 

2060 RETURN 

2070 ind=0 

2080 RETURN 

2090'N 

2100 norx=0 

2110 RETURN 

2120' B 

2130 GRAPHICS PEN pn,0:TAG:MOVE xx-8,yy+6„0:PRINT' ";:TAGOFF 

2140 RETURN 

2150 ' <BARRA ESPACIADORA> 

2160 PLOT x,y.pn,norx:RETURN 

2170 ' X 

2180 norx=1 

2190 RETURN 

2200'M 

2210 menu=menu MOD 2+1 

2220 GOSUB 2260:RETURN 

2230 i$=UPPER$(INKEY$):IF i$= "" OR INSTR(gri$,l$)=0 THEN 2230 ELSE RE 

TURN. 
2240 CLS:borrar=0:PRINT ord$(ro);: LOCATE 1,3:PRINT'<BARRA> ";:IF ro 

=3 OR ro=4 THEN PRINT'para terminar" 
2250 RETURN 
2260 CLS:ind=-1 

2270 FOR i=1 TO LEN(ords$(menu)) 
2280 ps=i+ABS(menu=2)*LEN(ords$(1)) 

2290 PEN 1:PRINT'<"MID$(ords$(menu),i,1)">"MID$(orden$(ps),2,4)" "; 
2300 NEXT 

2310 PRINT'<CLR> <DEL> <BARRA> "; 
2320 RETURN 
2330'G 
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2340 GOSUB 2460:IF nombrefichero$="" THEN 2370 

2350 GOSUB 2550 

2360 SAVE nombrefichero$,b,&C000,&4000 

2370 GOSUB 2260 

2380 RETURN 

2390'L 

2400 GOSUB 2460:IF nombrefichero$="" THEN 2440 

2410 GOSUB 2730 

2420 LOAD nombrefichero$,&COOO 

2430 GOSUB 2570 

2440 GOSUB 2260 

2450 RETURN 

2460 CLS:LOCATE 10,3:PRiNT'<RETURN> para abandonar! "; * 

2470 LOCATE 1,1:PRINT"Nombre del fichero? "; 

2480 INPUT "".nombrefichero$:IF nombrefichero$="" THEN RETURN 

2490 n=INSTR(nombrefichero$,"."):IF n=0 THEN 2520 

2500 IF n=1 THEN 2460 

2510 nombrefichero$=LEFT$(nombref!chero$,n-1) 

2520 nombrefichero$=LEFT$(nombrefichero$,8)+".pan" 

^30CLS 

2540 RETURN 

2550 FOR 1=0 TO 4:P0KE &C000+l,pn(i):NEXT 

2560 RETURN 

2570 FOR i=0 TO 4:pn(i)=PEEK(&C000+i) MOD 27:NEXT 

2580 cn=0:FOR 1=0 TO 2:IF pn(i)=pn(i+1) THEN cn=cn+1 

2590 NEXT IF cn=3 THEN 2630 

2600 FOR i=0 TO 3:INK i,pn(i):NEXT 

2610 BORDER pn(4):pn=1:GRAPHICS PEN pn 

2620 RETURN 

2630pn(0)=0:pn(1)=26:pn(2)=15:pn{3)=6:pn(4)=0 

2640 GOTO 2600 

2IBB0 ' 1. 2, 3 y 4 

2660 CLS:PRINT'Quiere <G>uardai":PRINT TAB(8)"<R>ecuperar":PRINT 

TAB(6)"o <l>ntercambiar la pantalla?"; 
2670 gri$="GRI"+CHR$(13):G0SUB 2230:IF i$=CHR$(13) THEN 2260 
2680 bnk2=(ord-13):bnk1=1 

2690 IF i$="G" THEN CLS:GOSUB 2550:|SCREENCOPY,bnk2,bnk1 
2700 IF i$="R" THEN GOSUB 2730:|SCREENCOPY,bnk1,bnk2:GOSUB 2570 
2710 IF i$="l" THEN CLS:GOSUB 2730:GOSUB 2550:|SCREENSWAP,bnk2 

,bnk1:GOSUB 2570 
2720 GOSUB 2260:RETURN 
2730 FOR 1=0 TO 3:INK i,0:NEXT:BORDER OiRETURN 
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2740 CLSiGOSUB 2600:RESUME 2260 

2750 DATA"CR.T@\IANBXM";'1234LGM' 

2760 DATA 19,Circunferencia,Recuadro/' .rellenai'' .Triangulo.AlternarArecta 

"lnks",ASCII,Normal,Borrar/'Xor "/'Menu""1 ","2 "/'3 "/' 

4 " ," Leer " ,Grabar/' Menu " 
2770 DATA Circunferencia,Recuadro,Color del limite.Color para rellenar 

,Triangulo 1,Triangulo 2,Unea recta,** 

Las dos ordenes ISCREENCOPY y ISCREEIMSWAP se cargan con el programa BANK- 
MAN (cara 1 del disco del sistema). Estas 6rdenes copian e intercambian imagenes de 
pantalla entre los diversos bloques de 16K de memoria y entre los dos bancos de 64K. 

Antes de probar el programa 'disenador de pantallas' es necesario ejecutar el 'gestor de 
bancos'. Inserte en la unidad la cara 1 del disco del sistema y escriba lo siguiente: 

run"bankman" 

A continuacion ejecute el programa 'disenador de pantallas'. En el monitor aparecera un 
menu y un cursor grafico parpadeante. Pulse la tecla correspondiente a la opcion elegida. 

Por ejemplo, para dibujar una circunferencia pulse 



y luego la tecla |T| hasta que el cursor pulsatil este a unos dos o tres centimetres por en- 
cima del centre de la pantalla. 

Finalmente, pulse la barra espaciadora para ejecutar la funcion 'Circunferencia', despues 
de lo cual el programa vuelve al menu. 

Si se teclea una M (de 'M'enii) se obtiene un segundo menu que ofrece las opciones de 
'G'uardar y 'R'ecuperar pantallas y de manipular el contenido de las pantallas '1', '2', 
'3' y '4' (que estan en el segundo banco de 64K de RAM). 

Para utilizar estas funciones, escriba el 'niimero de memoria' (1, 2, 3 o 4); aparecera otro 
menu, en el cual se puede elegir: 

G para almacenar una pantalla 

R para recuperar una pantEilla 

I para intercambiar pantallas 

[RETURN] para abandonar este menu 
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Por ejemplo, para almacenar la pantalla actual en la memoria 2, pulse el '2' seguido de 
la 'G'. 

Si se sale de este menu, pulsando 'M' puede volver a 61. 

El programa 'diseflador de pantallas' realiza diversas funciones: rectdngulos, circunferen- 
cias, triangulos, rectas, encendido y apagado de puntos, rellenado de recintos y dibujo 
de caracteres. 

Cuando se ha terminado el diseiio de una pantalla, se la puede grabar en disco para su 
posterior recuperacion. 

Con esto termina el ultimo capitulo del manual. Probando^y analizando 
los programas que le hemos ofrecido en estas pdginas, y experimentando 
con ellos, es de esperar que usted haya Uegado a conocer con bastante pro- 
fundidad el BASIC de Amstrad y el propio 464/6128. 



Para mas informacion . . . 

Finalmente vamos a of recede cuatro apendices: el Acuerdo de licencia para 
el usuario final de programa CP/M, un glosario de terminologia informati- 
ca, los listados de unos cuantos programas y un indice alfabetico. 

Esperamos que haya encontrado este manual instructivo e interesante y le 
agradecemos que haya adquirido el 464/6128. 
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Apendice 1 

AMSTRAD 



Contrato de licencia de todo el software 
descrito en este manual 



MUY IMPORTANTE 

Los programas y el software descritos en este manual y suministrados por Amstrad, in- 
cluidos o inmersos en disquete magnetico, cinta, disco duro o cualquier otro soporte, asi 
como la informaci6n relativa a esos programas y software publicada en este manual y en 
cualesquiera otros documentos, estan sujetos a las condiciones expresadas en el presente 
contrato. 

El hecho de abrir la envoltura o de utilizar, listar, ejecutar, copiar o manipular de cual- 
quier otra forma los programas o la documentaci6n implica que el usuario acepta las cl&a- 
sulas y condiciones siguientes. 

Si usted no acepta todas y cada una de las cldusulas y condiciones de este contrato, debe 
destruir todos los manuales y todos los disquetes que contienen los programas (o, en su 
caso, borrarlos del disco duro o del cualquier otro soporte en que esten almacenados). 



Deflniciones 

1 . «Miquina» es el microordenador (s61o uno) en el que se va a usar el software. Los sis- 
temas consistentes en varios procesadores necesitan licencias adicionales. 

2. «Software» es el conjunto de programas, disquetes, cintas, documentaci6n y materia- 
les anejos descritos en este manual y suministrados con 61. 
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3. «Programa» es una parte del «software» que consiste en las instrucciones, codigos, 
mensajes y cualquier otra informaci6n incluidos o inmersos en disquete magnetico, 
cinta, disco duro o cualquier otro soporte, o cualquier parte de aquellos. 

4. «Amstrad» es AMSTRAD PLC, 169 Kings Road, Brentwood, Essex, CM14 4EF, Rei- 
no Unido. 

5. «Usuario» es el comprador si el programa va a ser destinado a uso personal; si el pro- 
grama ha sido comprado por una empresa, por «usuario» se entiende la empresa y sus 
empleados. 



Licencia 



Amstrad concede licencia (no en exclusiva) al usuario para: 

1 . Utilizar el programa en una sola maquina. 

2. Copiar el programa (salvo las partes que esten protegidas contra copia) en forma elec- 
tronica o impresa, bien sea como medida de seguridad o para modificarlo, siempre a 
condicion de que s61o se lo utilice en una mdquina. El usuario s61o puede hacer una 
copia electr6nica para estos fines. Esta prohibido copiar la documentacion. Tambien 
esta prohibida toda forma de desensamblado o descompilacion del programa. 



Condiciones 



1 . El software suministrado por Amstrad estd sometido a copyright. El usuario se obliga 
a respetar los derechos de autor. 

2. Este contrato entra en vigor en el momento en que el usuario abre la envoltura del soft- 
ware o utiliza, lista, ejecuta, copia o manipula de cualquier otra forma el programa, 
y sigue siendo valido hasta su rescisi6n. 

3. El usuario puede rescindir este contrato en cualquier momento destruyendo el software 
y todas sus copias. La licencia queda cancelada automaticamente si el usuario incum- 
ple alguna de las cMusulas de este contrato, y entonces Amstrad puede exigir la devolu- 
ci5n inmediata del software. La cancelaci6n de la licencia no implica la perdida de los 
derechos que hayan podido adquirir las partes. 

4. La licencia es concedida al usuario con cardcter personal; este no puede transferirla 
a otras personas o empresas. 
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5. La licencia no abarca el derecho a alquilar ni revender el software, en todo o en parte, 
ni a transferir su posesion de ninguna otra manera. 

6. El usuario no puede usar, copiar, modificar ni transferir el programa o su documenta- 
cion, ni tampoco copias, modificaciones ni porciones mezcladas con otros programas, 
salvo de la manera expresamente autorizada por este contrato. 

7. El programa no puede ser transferido por soportes distintos de aqu61 en que ha sido 
suministrado. Por consiguiente, no puede ser transmitido por medios tales como cana- 
les de telecomunicacion. 

8. El usuario se obliga a tomar todas las medidas necesarias para proteger el software 
contra la utilizaci6n, la reproducci6n y la distribuci6n no autorizadas. 



Garantia limitada 



El software se suministra «tal cual». El usuario asume la responsabilidad de la elecci6n 
de un programa para conseguir los efectos por el pretendidos, y es responsable de la insta- 
lacion, uso y efectos del programa. Salvo lo exphcitamente dispuesto en este contrato, 
Amstrad no hace ninguna concesion, no acepta ninguna condici6n y no ofrece ninguna 
garantia, ni expresa ni t^cita, incluyendo las garantias implicitas de comerciabilidad y ade- 
cuacion a un propdsito (concreto o general), aunque sin limitarse a estas. 

Amstrad no garantiza que las funciones del software vayan a satisfacer las necesidades 
del usuario, ni que el funcionamiento del software sea ininterrumpido y libre de error. 

Amstrad no recomienda la utilizaci6n del software en funciones que puedan ser, directa 
o indirectamente, cnticas para la vida de las personas, ni tampoco en situaciones en las 
que un f alio o un error pueda afectar a la integridad fisica de las personas u ocasionar 
danos, perdidas o gastos. 

No obstante, Amstrad garantiza que los disquetes o las cintas (u otro soporte que no sea 
'hardware') en que se suministra el programa estdn libres de defectos, si se les da un trato 
normal, por un periodo de noventa (90) dias contados a partir de la fecha de la compra, 
que se acreditara mediante la factura. En este caso, Amstrad sustituird los disquetes o las 
cintas (u otro soporte que no sea de 'hardware') defectuosos, que habran de ser enviados 
a Amstrad, a portes pagados, junto con una copia de la factura. 

Ademas, Amstrad procurara, a su sola discreci6n, remediar los errores del programa, a 
condicion de que sean atribuibles a Amstrad, probables y demostrables, y a condici6n de 
que le sean comunicados dentro del periodo de 90 dias. 
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Limitaciones 

El autor, el fabricante, el disenador y el suininlstrador del software no ser^n en ningun 
caso responsables de perjuidos, perdidas o danos, ya sean directos, indirectos o acdden- 
tales, aun cuando Amstrad y las otras partes hayan sido ayisados de la posibilidad de tales 
perjoidos, danos o perdidas. 

Toda responsabilidad queda limitada a, como msbdmo, el precio del software. 

Indemnizacion 



El usuario indemnizar^ a Amstrad por cualquier perjuido que Amstrad pueda sufrir co- 
mo consecuenda de cualquier reclamaci6n que el usuario inste contra Amstrad o contra 
terceros basada en supuesta negligencia, incumplimiento de contrato o deficiencia de los 
productos. 



Legislacion aplicable 



Este contrato serd interpijstado y cumplido de acuerdo con las leyes del Reino Unido (o, 
en lo referente a los productos de Microsoft, de acuerdo con las leyes de Washington, 
EE.UU.). 



Restriccion de derechos del Gobierno de los 
EE.UU. sobre los programas de Microsoft 

El programa y la documentacidn son suministrados en regiinen de derechos restringidos. 
El uso, la copia y la exposici6n piiblica por parte del Gobierno de los EE.UU. estdn suje- 
tos a las restricciones expresadas en la subdivisi6n b(3)(ii) de los 'Derechos sobre datos 
t6cnicos y software de ordenador', clausula 252.227-7013 de la DODFAR. 

El contratista/fabricante es Microsoft Corporation / 160 11 ^fE 36th Way / Box 9701 / 
Redmond, WA 9i8073-9717. 
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General 

Si alguna parte de este contrato fuera contraria a la ley, seri considerada nula s61o esa 
parte. 

Algunos Estados no permiten que se excluya garantias implfcitas ni que se condicione o 
se restrinja la responsabilidad. En tales circunstancias, es posible que las exclusiones y li- 
mitaciones expresadas en este contrato no sean aplicables al usuario. Esta garantia reco- 
noce al usuario ciertos derechos legales, pero este puede adem^ tener otros derechos, que 
rarian de un Estado a otro. 



Exportacion de tecnologia estadounidense 

No esta permitido exportar, vender o transferir tecnologia, programas o software esta- 
dounidenses a ninguna persona, ni directa ni indirectamente, cuando se sabe que puede 
producirse una reexportacion para la que no se solicite y obtenga la necesaria 'Licencia 
de Exportaci6n o Reexportaci6n del Gobierno de los Estados Unidos', que expide el De- 
partamento de Comercio de los Estados Unidos, Washington DC 20230. 

Amstrad pic Amstrad Espana, S.A. 

169 Kings Road Ronda de Valdecarrizo, s/n 

Brentwood Poligono Industrial de Tres Cantos 

Essex CM14 4EF 28760 Colmenar Viejo 

Reino Unido Madrid 

©Copyright 1990, Amstrad pic y Amstrad Espafla, S.A. 
Reservados todos los derechos 
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Apendice 2 



Lexico ingles-castellano y glosario 



Algunos ierminos que se utilizan frecuentemente en informdtica. 



Accumulator Acumulador 

Una parte del microprocesador, en el coraz6n del ordenador, en el que se almacenan tem- 
poralmente los datos mientras se los esta procesando. Se lo utiliza en la programaci6n en 
codigo de mdquina. Los usuarios de BASIC ni siquiera necesitan saber que existe. 



Acoustic coupler Acoplador acustico 

Tambien denominado 'modem aciistico'. Dispositivo electr6nico mediante el cual se pue- 
de conectar el ordenador a la red telefonica. De esta forma el ordenador se puede integrar 
en una red de comunicacion publica, o bien comunicarse con otros usuarios de ordenado- 
res dom^sticos para el intercambio de informacion o programas. 



Address Direccion 

Niimero que identifica la posici6n de una celula de la memoria del ordenador. Mediante 
la direccion se selecciona una celula concreta para leer su contenido o, en el caso de la 
memoria RAM, para leer o escribir un valor en ella. 



Lexico inglds-castellano y glosario A2/1 



Adventure game Juego de aventura 

Una pasi6n para algunos, un aburrimiento para otros. Un juego de ordenador en el que 
se invita al jugador a participar en una serie de sucesos pseudoaleatorios con el objetivo 
de salir de un laberinto. 



Algorithm Algoritmo 

Nombre grandilocuente que se da a una f6rmula o a una suma complicada. Secuencia de 
operaciones logicas y aritmeticas con las que se realiza una determinada tarea informa- 
tica. 



Alphanumeric Alfanumerico 

Adjetivo que describe la diferencia entre una letra o un digito y un cardcter grafico. 

ALU (Arithmetic and Logic Unit) Unidad aritmetica y Idgica 

Parte del microprocesador que realiza las operaciones Idgicas y aritmeticas. De interns so- 
lamente para la programaci6n en c6digo de maquina. 

Ambiguous File Name IMombre de fichero ambiguo 

Un nombre de fichero que contiene uno o varios simbolos comodin. Los nombres de fi- 
chero ambiguos pueden representar al mismo tiempo varios ficheros cuyos nombres tie- 
nen dgo en comun. 

AMSOOS 

AMStrad Disc Operating System. Sistema operativo de disco AMSTRAD. Es el programa 
que permite que el BASIC de Locomotive acceda a los ficheros de disco. 

Animation Animacidn 

Los dibujos animados son el mejor ejemplo. La animacidn en los ordenadores consiste 
en mover grificos por la pantalla, tratando de simular los movimientos de los seres reales. 
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Applications program Programa de apiicacionas 

Programa escrito para realizar una tarea especifica, a diferencia de los programas de 'uti- 
lidad', tales como ensambladores, controladores de impresora, etc., que son de interes 
mas general. 

Arcade game Juego gr^fico de salon 

Juego de ordenador basado en el movimiento de graficos (invasores espaciales, monstruos 
al acecho en un laberinto, etc.). El usuario tiene que evitar la 'muerte' de los 'buenos'. 
Generalmente sirven para ejercitar los reflejos, pero no tienen ningiin valor diddctico para 
los estudiantes de informdtica. 

Architecture Arquitectura 

Termino que designa la organizaci6n general de un ordenador (relaciones entre el bus de 
datos, la UCP y los perifericos). 

Argument Argumento 

Una variable independiente. For ejemplo, en SIN(x) la x es el argumento de la funcion 
SIN. 

Array Matriz 

Combinacion de elementos de un mismo tipo dispuestos en una o varias dimensiones. En 
el caso monodimensional se denominan 'vectores'. 

Artificial intelligence (Al) Inteligencia artificial 

Tecnica de programacion que permite al programa aprender por la experiencia. 

ASCII 

American Standard Code for Information Interchange. C6digo estadounidense est^dar 
para el intercambio de informaci6n. Forma habitual de representar digitos, letras y otros 
simbolos mediante c6digos numdricos. 
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Assembler Ensamblador 

Programa que facilita la programacion en codigo de maquina. Las instrucciones son los 
Uamados 'nemonicos': grupos de letras que se recuerdan e interpretan facilmente porque 
dan una idea de la funcion que realiza cada instruccion. 



Backup Copia de seguridad 

Copia que se hace de los programas o ficheros de datos en prevision de que se borre o 
deteriore accidentalmente el original. 



Bar code Codigo de barras 

C6digo impreso legible por ordenador mediante tecnicas opticas tales como Idser de baja 
potencia. (Ejemplo: el grupo de rayas verticales que se imprime en la cubierta de algunas 
revistas.) 



Base Base 

Es el niimero de digitos que se utilizan en cada sistema de representaci6n numerica. En 
el sistema decimd es 10; en el binario, 2; en el hexadecimal, 16. 



BASIC 

Beginners' All-purpose Symbolic Instruction Code. Codigo de instrucciones simb61icas de 
uso general para principiantes. Es un lenguaje de programaci6n interpretado que se incor- 
pora en la mayor parte de los ordenadores dom^sticos. BASIC fue diseiiado primordial- 
mente como ayuda para la enseiianza, pues permite la comprobaci6n de los programas 
en cualquier momento de su desarroUo. En esto se distingue de los programas compilados, 
que no pueden ser probados parcialmente mientras el programa no este completo. 



Baud Baudio 

Unidad de medida de la velocidad de transmision de datos. En un concepto distinto del 
de bit por segundo, aunque en muchos casos sus valores coincidan. 
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BCD (Binary Coded Decimal) Decimal codificado en binario 

Sistema de codificacion para numeros decimales en el que cada digito se representa por 
un grupo de cuatro bits. 



BDOS 

Basic Disc Operating System. Sistema operative bdsico de disco. Parte del sistema opera- 
tive CP/M que proporciona un interfaz para que el programa del usuario pueda utilizar 
las funciones de CP/M. 



Benchmark Prueba patrdn 

Una tarea estandar que se realiza con distintos ordenadores para comparar su velocidad, 
precision, etc. Por ejemplo, elevar al cuadrado el niimero 99999 y luego calcular la ralz 
cuadrada. 



Binary Binario 

Sistema de numeracion de base 2, en el que los numeros se representan como combina- 
ciones de solamente dos digitos: el y el 1. (Vease la parte 1 del capitulo 'Cuando usted 
guste ...'.) 



Binary numiier IMumero binario 

Un mimero representado en el sistema binario. En el BASIC del 464/6128 se los identifica 
por el prefijo &X; por ejemplo, &X0101=5(decimal). 

BIOS 

Basic Input/Output System. Sistema basico de entrada/salida. Es la parte de CP/M que 
se escribe especificamente para cada ordenador concrete. Gestiona todas las entradas y 
salidas: pantalla, teclado, disco, etc. 
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Bit 

Forma abreviada de Binary digiT (digito binario). Un digito binario es uno de los dos sim- 
bolos (el y el 1) con los que se representan los numeros en el sistema de base 2. 

Bit significant interpretable bit a bit 

Hace referenda a los casos en los que se puede extraer informacion de un numero exami- 
nando el estado de cada uno de sus bits. El valor global en decimal no tiene significado 
evidente. 

Boolean algebra Algebra de Boole 

Estructura algebraica sobre variables que pueden tomar dos valores distintos: verdade- 
ro/falso, 1/0, etc. 

Boot Carga inicial 

Proceso de carga de un sistema operativo en la memoria del ordenador. Cuando se carga 
CP/M desde BASIC, lo primero que se lee es un pequeflo programa autocargador, el cual 
realiza la carga del sistema operativo propiamente dicho. 

Booting, Bootstrapping Autocarga 

Los programas y sistemas operativos no se cargan a si mismos, sino gracias a una rutina 
(generalmente grabada en ROM) que inicia el proceso de carga a partir de una determina- 
da posici6n de memoria. 

Buffer Tampon 

Area de memoria reservada para el almacenamiento temporal en los procesos de transfe- 
rencia de la informacion. 
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Bug Error de programacion 

Un problema no previsto en un programa: puede ir desde una 'caracteristica inesperada' 
(por ejemplo, si se pulsan cuatro teclas a un tiempo la pantalla cambia de color) hasta 
una secuencia de instrucciones que provoca la p6rdida del control de la mdqmna. 



Built-in commands Ordenes internas o incorporadas 

6rdenes que forman parte del sistema operativo. Son de ejecucidn mas rapida que las 6r- 
denes extemas, pues no tienen que ser cargadas del disco. 



Bus 

Grupo de conexiones, internas al ordenador o de entrada/salida, por las que se transmite 
informacidn acerca del estado de la UCP, de la RAM o de cualquier otra parte del hard- 
ware. El bus del 464/6128 es accesible a trav6s del z6calo que estd en la cara posterior 
del ordenador. 



Byte Byte, octeto 

Grupo de 8 bits. Es la menor porcion de informacidn que una UCP puede intercambiar 
con la memoria. 



CAD, Computer Aided Design Disefio asistido por ordenador 

Generalmente, un programa interactivo que convierte el ordenador en un tablero de dibu- 
jd electr6nico que ademas es capaz de realizar cdlculos matematicos. 

CAE, Computer Aided Education Ensenanza asistida por ordenador 

Programa que facilita la ensefianza en general sirvi^ndose de los ordenadores. 

Cartridge Cartuclio 

Dispositivo de memoria extemo compacto conectable al ordenador (v. g., programas en 
ROM, cuya ventaja es la gran veloddad de carga, pero que son m^ caros que los suminis- 
trados en disco). 
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Casatette 

Cinta encapsulada, ya sea virgen o con programas comerciales. 

CCP Interprete de consola 

Console Command Processor. Procesador de 6rdenes de consola. Es el modulo de CP/M 
que interpreta y ejecuta las entradas por el teclado. 

Character Caracter 

Cualquier simbolo que pueda ser manejado y visualizado por el ordenador: digitos, letras 
y otros signos, incluidos los simbolos grdficos. 

Character set Juego de caracteres 

Conjunto de todos los signos y simbolos disponibles en un ordenador o una impresora. 
El hecho de que un ordenador tenga un simbolo determinado no implica que este sea re- 
producible en la impresora. 

Character string Cadena literal 

Grupo de caracteres que pueden ser almacenados y tratados en bloque, v. g. una palabra 
o grupo de palabras. 

Chip Pastille 

Termino popular, aunque incorrectamente utilizado, para designar un circuito integrado 
monolitico. La 'pastilla' es en realidad un trozo de silicio en el que se graba el circuito. 

Clock Reloj 

Sistema temporizador de referenda del ordenador que controla y sincroniza la secuencia 
de operaciones. Un reloj de tiempo real es el que mantiene la hora, fecha, etc. 
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Code Codigo 

Aparte de otros significados, forma abreviada de referirse al 'codigo de maquina'. 

Cold start Arranque en frio 

Proceso de carga e inicializaci6n de un sistema operativo. El arranque en frio de CP/M 
se realiza cuando se ejecuta la orden I CPM de AMSDOS. 

Command Orden 

Instruccion de programa o instruccion directa de teclado. 

Compiler Compilador 

Un programa complejo que convierte programas completos escritos en un lenguaje de alto 
nivel, tal como BASIC, en c6digos directamente utilizables por el microprocesador, con 
el consiguiente incremento de la velocidad de ejecuci6n. 

Computer generations Generaclones de ordenadores 

Diversos hitos tecnologicos h2m delimitado las etapas de la evoluci6n de la tecnologia in- 
formdtica; los ordenadores fabricados con un nivel de sofisticaci6n similar forman una 
'generacion'. 

Console mode Modo de console 

Modo directo de CP/M; en la pEuitalla aparece el mensaje inductor A> para indicar que 
el sistema esta esperando que se teclee una orden interna o el nombre de un programa de 
ayuda. 

Corruption Corrupcidn 

Destruccion o alteracion del contenido de un fichero o de la memoria, indeseada y posi- 
blemente irremediable. 
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CP/M 

Control Program for Microcomputers. Programa de control para microordenadores. Sis- 
tema operativo basado en disco, desarroUado por Digital Research, que proporciona un 
inter faz con el que utilizar una gran variedad de programas. 

CPU, Central Processing Unit Unidad central de proceso 

Niicleo del sistema informatico que interpreta las instrucciones y hace que sean obedeci- 
das. En los microordenadores la UCP es el propio microprocesador. 

Cursor 

Simbolo mdvil que indica en que lugar de la pantalla aparecerd el pr6ximo cardcter que 
se envie a ella. 

Cursor control keys Teclas de movimiento del cursor 

Teclas con las que se hace que el cursor se mueva por la pantalla. Frecuentemente se las 
utiliza tambien en los juegos grdficos. 

D Analog Analdgico 

Adjetivo que caracteriza los fen6menos en los que las transiciones entre el estado inicial 
y el final se realizan de forma gradual o continua. Los ordenadores son dispositivos digi- 
tales, mientras que los fen6menos naturales son en su mayon'a anal6gicos; asi pues, el or- 
denador tiene que realizar una conversi6n A/D antes de poder procesar los datos recibidos 
de una fuente anal6gica. 

Daisy-wheel printer impresora de margarita 

Impresora que escribe con calidad de maquina de escribir. Los caracteres est^ preforma- 
dos, cada uno en un brazo de la 'margarita', y se los transfiere al papel al golpear el brazo 
con un martillo. 
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Database Base de datos 

Colecci6n de datos estructurados, integrados y coherentes, utilizables por el ordenador. 

Data capture Captacidn de datos 

Recolecci6n de datos enviados al ordenador desde fuentes exteraas. 

Debugging Depuracidn 

Proceso de detecci6n y eliminaci6n de errores de los programas. 

Decimal notation IMotacion decimal 

Sistema decimal de numeracibn, de base 10, que utiliza los digitos del al 9. Es el sistema 
ordinario. 

Default Prescrito, implicito, por defecto 

Valor que el ordenador supone en ausencia de otra especificacion por parte del usuario. 
Por ejemplo, en CP/M la unidad de disco implicita es la A:. 

Delimiter 

Vdase Separator. 

Diagnostic Diagnostico 

Mensaje emitido automaticamente por el ordenador para seiialar e identificar un error de 
un programa. 

Digital 

Es el t6rmino opuesto a 'analogico'. Describe la transici6n brusca entre dos estados de 
un proceso. 
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Digitizer Digitalizador 

Metodo de conversion de informacion analogica en digital. 

Directory Directorio 

Seccion de un disco que contiene las resenas (titulos y caracteristicas) de los ficheros gra- 
bados en el. Lista del contenido de un disco. 

Disc, disic Disco 

Hoja de plastico circular, fina y plana, recubierta de material magnetico, que se utiliza 
como medio de almacenamiento de la informacion. El disco estd incluido en una envoltu- 
ra protectora en la que hay una 'ventana' para la cabeza lectora. En el disco de 3 pulgadas 
la ventana esta cubierta por un obturador metalico que se abre automaticamente cuando 
se introduce el disco en la unidad. 

Disc drive Unidad de disco 

Mecanismo y circuitos electr6nicos con los que se mueve el disco para leer o grabar datos 
en el. 

Documentation Documentacion 

Manuales suministrados con los ordenadores o los programas, en los que se explica su 
funcionamiento. 

DOS (Disc Operating System) Sistema operative basado en disco 

Programas que controlan todas las operaciones de la unidad de disco. 

Dot matrix IVIatriz de puntos 

Reti'cula rectjmgular de puntos con la que se puede visualizar cada caracter seleccionando 
los puntos adecuados. 
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Double sided De doble cara 

Hace referenda a los discos en los que se puede almacenar informaci6n en ambas caras. 
Una unidad de doble cara puede acceder a ambas caras del disco sin necesidad de extraer 
y darle la vuelta a este. 

Dumb terminal Terminal pasivo 

Terminal de ordenador que actiia solamente como medio de entrada o sjilida, pero sin 
procesar la informacion. 

Edit Editar, corregir 

Corregir o modificar datos, programas o textos. 

Editor 

Un programa, generalmente grabado en la ROM del ordenador, que permite realizar el 
proceso de edicion. 

EPROM 

Erasable Programmable Read only Memory. Memoria borrable y programable de 's61o 
lectura'. Similar a la PROM, pero tal que su contenido se puede borrar con luz ultraviole- 
ta para luego grabar en ella un nuevo programa. Una EEPROM puede ser borrada por 
medios electronicos. 

Expression Expresion 

Formula utilizada en un progrsuna para realizar cierta operacion con los datos. La propia 
expresion indica normalmente la naturaleza de los datos que puede manejar. 

Fifth generation computers Ordenadores de la quinta generacion 

Grandes ordenadores que estardn disponibles en el futuro y tendran, como caracteristica 
distintiva, la capacidad de utilizar ampliamente las tecnicas de la inteligencia artificial. 
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File Fichero 

Coleccion de datos, de estructura homogenea, generalmente grabada en cinta o disco. 

RIe name Nombre de fichero 

En CP/M se permite un maximo de 8 caracteres y otros tres adicionales, estos liltimos 
precedidos por un punto. 

Firmware 

Software contenido en ROM: un hibrido de software y hardware. 

Fixed-point number Numero en coma fija 

Un numero que se representa, manipula y almacena con la coma decimal en una posici6n 
determinada. 

Floating-point number Numero en coma flotante 

Niimero que se representa, manipula y almacena con la coma decimal en la posicion mas 
conveniente (en forma de mantisa y exponente). 

Floppy disc 

V6ase Disc. 

Flowchart Ordinograma 

Representacion esquemdtica de la evoluci6n de las acciones de un programa. 



Forth 

Lenguaje de programaci6n de alta velocidad de ejecucion. Tanto la velocidad como la 
complejidad estan a medio camino entre los lenguajes de alto nivel y el c6digo de maqui- 
na. No es im lenguaje para principiantes. 
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Function key Tecia de funcidn 

Tecla que tiene asignada una tarea especifica, que puede ejecutar en lugar (o ademds) de 
la funcion grabada sobre ella. 

Qgle Puerta logica 

Las puertas logicas permiten el paso de datos cuando se cumplen ciertas condiciones. Hay 
muchos tipos de puertas 16gicas: OR, AND, XOR, etc. 

Graphics Graficos 

Dibujo de puntos, rectas, circunferencias, etc.; es deck, todo lo que aparece en la pantalla 
que no scan 'caracteres'. 

Graphics character Caracter grSfico 

Simbolo asignado a un cardcter que es en si mismo un dibujo. 

Graphics cursor Cursor grafico 

Concepto similar al de 'cursor de texto', pero invisible (en el 464/6128) y referido a la pan- 
talla grafica. 

Graphics mode IViodo grafico 

Los ordenadojes mas antiguos tem'an que ser puestos explicitamente en este modo para 
poder manejar grdficos. En cambio, los ordenadores personales modernos pueden mez- 
clar textos con graficos. 

Graphics tablet Tabiero grafico 

Periferico que convierte un dibujo en una forma manipulable por el ordenador. Es una 
forma de conversion A/D (anal6gica a digital). 
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Handshaking Intercambio de indicativos y senales de control 

Secuencia de seflales electrdnicas que inicia, comprueba y sincroniza el intercambio de da- 
tes entre un ordendor y un periferico o entre dos ordenadores. 

Hard copy Copia en papel 

Listado por impresora de un programa o un texto, o volcado en papel de la pantalla 
grdfica. 

Hardware Equipos, maquinas 

Componentes electronicos o mecanicos de un sistema informatico: todo lo que tiene volu- 
men y peso. 

Hexadecimal (HEX) 

Sistema numerico de base 16. Los mimeros hexadecimales se identifican en el 464/6128 
por los prefijos & y &H. Por ejemplo, &FF=255 (decimal). (Vease la parte 1 del capitulo 
'Cuando usted guste ...'.) 

Hex file Fichero HEX 

Representacion ASCII de un fichero de orden externo o de codigo de maquina. 

High-level language Lenguaje de alto nivel 

Lenguajes del tipo de BASIC, en los que las instrucciones son mas proximjis al lenguaje 
ordinario. Son mas lentos que el codigo de maquina, pero mucho mas sencillos de enten- 
der y programar. 

IEEE-488 

Uno de los interfaces estandar para la conexion de dispositivos externos a un ordenador. 
Similar al Centronics, pero no totalmente compatible con 61. 
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Information technology Tecnologia de la informacidn 

Todo lo relative a la utilizacion de los ordenadores en el proceso de la informaeion y las 
comunicaciones: proceso de textos, transmisidn de datos, videotexto, teletexto, etc. 

Initialise Inicializar 

Poner en marcha un sistema. O dar valores concretes a variables antes de empezar la eje- 
cucion del niicleo central de un programa; por ejemplo, dimensionar matrices, declarar 
tipos de variables, etc. 



Input 



Entrada 



Datos de todo tipo que entran en el ordenador procedentes del disco, del teclado, de una 
puerta RS-232, etc. 

Instruction Instruccion 

Orden que manda al ordenador que realice alguna operacion o tarea. Un conjunto de ins- 
trucciones forma un programa. 

Instruction set Juego de instrucciones 

Conjunto de procesos logicos y matematicos fundamentales que puede realizar el micro- 
procesador. Toda instruccion de un lenguaje de alto nivel (y tambien los nem6nicos de 
ensamblador) tiene que ser convertible a una instruccion o serie de instrucciones que la 
UCP pueda reconocer. 

Integer Entero 

Niimero sin parte decimal. 

Integrated circuit Circuito integrado 

Conjunto de componentes electronicos miniaturizados, grabados en una pastilla de sili- 
cio. (Vease tambien Chip.) 
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Intelligent terminal Terminal inteligente 

Un terminal que, ademas de gestionar entradas y salidas para un ordendor central, puede 
realizar ciertas tareas de proceso de datos cuando el ordenador estd 'fuera de linea'. 

Interactive Interactive 

Hace referenda a los programas que solicitan del usuario la introducci6n de informaci6n 
de modo inmediato: desde el control de naves espaciales en juegos gr^ficos hasta las res- 
puestas en programas educativos. La accidn del usuario tiene efecto en 'tiempo real' sobre 
la evoluci6n del programa. 



Interface Interfaz 

Via de entrada y salida del ordenador, tanto para las sefiales electricas como para las ac- 
ciones y reacciones del usuario. En el CPC6128, el teclado, la pantalla y las conexiones 
para perifericos. 



Interpreter Intdrprete 

Una analogia mds entre las instrucciones de ordenador y los idiomas. Es el elemento del 
sistema que interpreta el lenguaje de alto nivel y lo convierte a una forma utilizable por 
la UCP de modo inmediato. 



I/O Entrada/Salida (E/S) 

Input/Output. Entrada/Salida. 

Iteration Iteracidn 

Uno de los mecanismos bdsicos de la informdtica. Consiste en la repetici6n de tareas (bu- 
cks), en las que generalmente se va modificando el valor de una variable, hasta que se 
cumple determinada condicidn. 
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Joystick Bastoncillo do mando 

Dispositive de entrada al ordenador que generalmente sustituye las teclas del cursor y hace 
que los juegos grdficos scan mas faciles y rapidos de controlar. 



K 

Forma abreviada y aproximada del prefijo 'kilo' (1000). Representa un 'kilobyte', que en 
realidad es 1024 bytes. (1024 es la base del sistema binario, 2, elevada a la decima po- 
tencia.) 

Keyboard Teclado 

Matriz de interruptores alfanum6ricos a traves de la cual se introduce informaci6n en el 
ordenador. 

Keyword Palabra clave 

Palabra que un programa o lenguaje de programaci6n reserva para una funcion u orden 
especifica. 

Least significant bit Bit menos significative 

En un numero binario, el bit de menor peso; es decir, el que esti m&s a la derecha en la 
representacidn matemdtica habitual. 

Light pen Lapiz 6ptico 

Otro dispositivo de entrada al ordenador que sirve para indicar una selecci6n de zonas 
de la pantalla o para leer codigos de barras. 

Line numiier Numero de linea 

Los programas de BASIC y de algunos otros lenguajes tienen las instrucciones numeradas 
para indicar al ordenador el orden de ejecucion. 
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LISP 

Acronimo de 'LISt Processor language' (lenguaje de proceso de cadenas de predicados). 
Otro lenguaje de alto nivel. 

Logic Logica 

Entre otras acepciones, conjunto de componentes electronicos que realizan las operacio- 
nes logicas elementales en las que en ultimo termino se basa el funcionamiento del 
ordenador. 



Logical device Dispositivo logico 

La representaci6n de un dispositivo puede no coincidir con su forma fisica. Por ejemplo, 
el dispositivo logico LST de CP/M puede ser asignado a la puerta Centronics, pero tam- 
bien a la pantalla del monitor. 



LOGO 

Nombre de un lenguaje de programacion tomado del termino griego 'logos', que significa 
'palabra'. LOGO ha sido disenado para servir como ayuda en la ensenanza de la informa- 
tica elemental. 



Loop Bucle 

Seccion de un programa que se ejecuta reiteradamente hasta que se cumple determinada 
condicion. 



Low-level languaje Lenguaje de bajo nivel 

Por ejemplo, el lenguaje ensamblador. Un lenguaje en el que cada instrucci6n correspon- 
de a una instruccion de codigo de maquina. 

LSB, Least Significant Bit Bit menos significativo, bms 

En un niimero binario, el bit de menor peso, es decir, el que esta mas a la derecha en la 
representacion matemdtica habitual. 
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LSI, Large Scale Integration Integracion a gran escala 

Etapa avanzada del desarrollo de circuitos integrados, en la que incorporan miles de com- 
ponentes electronicos en una sola pastilla de silicio. 

JVIachine code Codigo de maquina 

Lenguaje de programacion que es directamente comprensible y utilizable por el micropro- 
cesador. 

Machine readable Accesible a la maquina 

Este termino hace referenda a datos e informacion que puedan ser introducidos directa- 
mente en la maquina, sin necesidad de conversion. 

Man-machine interface Interfax hombre-maquina 

Dispositive que facilita la interaccion entre el usuario y el ordenador (teclado, sonido, 
etc.) 

Matrix Matriz 

Disposici6n de los puntos con los que se forman los caracteres en la psmtalla o en las im- 
presoras de 'matriz de puntos'. En otra acepcion, veuiables que con un solo nombre pue- 
den contener multiples valores, a los que se accede mediante los 'indices'. 

Memory Memoria 

Especie de 'aparcamiento' en la maquina, en la que esta almacena los programas y los 
datos. La memoria puede ser RAM (memoria de acceso aleatorio), en la que se puede es- 
cribir y leer, o ROM (memoria de 's61o lectura'), en la que sol2miente se puede leer. 

Memory map Mapa de memoria 

Esquema en que se indica que zonas de memoria estan dedicadas a las diversas funciones: 
pantalla, sistema operative, variables, etc. 
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Menu Menu 

Lista de opciones que se ofrece al usuario de un programa. 

Microprocessor Microprocesador 

Circuito integrado que controla el funcionamiento del ordenador. Recibe y ejecuta las ins- 
trucciones que le entrega el int^rprete de BASIC y controla todas las interfaces. 

Modem, Modulator/Demodulator Modulador/demodulador, Modem 

Dispositive que permite conectar el ordenador a una llnea telef6nica o la conexi6n a otros 
ordenadores o terminales remotos. 

Monitor 

Pantalla en la que se visualizan los grdficos, listados, mensajes, etc. Tambien el programa 
que permite observar la operaci6n basica del ordenador. 

Mouse Raton 

Seguidor boca abajo, o bola rodante. AI desplazarlo con la mano sobre una superficie 
plana, mueve el cursor por la pantalla. 

MSB, Most Significant Bit Bit mas significativo, BMS 

En un niimero binario, el bit de mayor peso; es decir, el que esta mas a la izquierda. 

Networic Red 

Cuando se interconectan varios ordenadores para intercambiar programas y datos, via 
modem, cable, etc., se forma una 'red'. 

IMibble Cuarteto 

Medio byte, es decir, un niimero binario de cuatro bits. 
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Noise Ruido 

El sistema de sonido del 464/6128 permite generar ruidos aleatorios para simular efectos 
sonoros tales como explosiones, disparos, etc. 

Numeric Iceypad Teciado numerico 

Grupo de teclas num^ricas destinadas a facilitar la introducci6n de numeros en el ordena- 
dor. En el caso del 464/6128, estas teclas son adem^ definibles por el usuario. 

OCR, Optical Ciiaracter Recognition Lecture 6ptica de caracteres 

Sistema de lectura automatica de caracteres escritos y de conversion a datos utilizables por 
el ordenador. 



Octal 

Sistema de numeracion de base 8 en que cada digito (del al 7) se presenta con tres digitos 
binarios. 



Off line Fuera de linea 

Situaci6n en la que se encuentra un periferico cuando no esta activamente conectado al 
ordenador. 



On line En Ifnea 

Termino opuesto a Off line/Fuera de li'nea. 

Operating system Sistema operative 

Programa que gestiona el manejo de la memoria, la ejecucidn de programas, prioridades, 
control de tiempos, etc. Interfaz entre la mdquina y los programas del usuario. 



L6xico ingles-castellano y glosario A2/23 



Operator Operador 

Parte de una operacion aritmetica o logica que describe en que consiste la operacion. 

Output Salida 

Todo lo que sale del ordenador como resultado de algun proceso o calculo. 

Overwrite Sobreescribir 

Escribir borrando lo anterior. Borrar parte de la memoria o la pantalla, a veces involunta- 
riamente, al escribir nuevos datos en ella. 

Paddle Empufiadura 

Mando principal del joystick. 

Page zero Pagina cero 

Zona de memoria, en CP/M entre las posiciones &0000 y &0100, en la que se almacenan 
parametros esenciales del sistema operative. 

Parallel interface Interfax paralelo 

Sistema de conexi6n del que es ejemplo el interfaz para impresora del 464/6128. Cada li- 
nea del bus de datos se conecta a la correspondiente patilla del corrector de la impresora. 
Los datos se transmiten en grupos simultaneos. Este metodo de transmision es mucho mas 
rapido que el que se consigue con un interfaz serie, en que los digitos binarioi se envian 
uno tras otro, por una sola Imea. 

Pascal 

Lenguaje estructurado de alto nivel que ha de ser compilado antes de su ejecucion y que, 
por consiguiente, es muy rapido. Es el lenguaje que habitualmente se estudia despues de 
BASIC. 
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PEEK 

Funci6n de BASIC que examina una posicion de memoria especificada e iiiforma de su 
contenido. 

Peripheral Periferico 

Impresoras, modems, joysticks, magnetofonos, etc.; cualquier aparato que pueda ser co- 
nectado £d ordenador para hacerlo mas litil. 

Physical device Dispositivo ffsico 

Dispositivo que realmente existe (o sea, pieza de hardware), representable por un disposi- 
tivo logico. 

Pixel (picture element) Punto grafico 

La menor area de la pantalla que puede ser controlada con independencia de las demas. 

Plotter Trazador automatico 

Trazador especial que dibuja con plumas, tanto caracteres como dibujos propiamente 
dichos. 

POKE 

Orden de BASIC que escribe un valor en una posicion de memoria especificada. 

Port Puerta 

Lugar espedficamente direccionable de un interfaz para la entrada o salida de datos. 
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Portability Adaptabiiidad 

Caracteristica de un lenguaje o programa que hace facil su adaptaci6n a otra mdquina, 
generalmente como consecuencia de la compatibilidad del sistema operative (v. g., el 
CP/M de Digital Research). 

Printer impresora 

Mdquina que escribe en papel los datos enviados por el ordenador. 

Procedure Procedimiento 

Serie de expresiones o instrucciones que indican al ordenador c6mo realizar una tarea. 

Program Programa 

Conjunto de instrucciones que gobiernan el funcionamiento del ordenador para hacer que 
realice una tarea. Puede tratarse de una simple rutina en c6digo de mdquina o de una apli- 
caci6n completa, tal como un paquete de contabilidad o un procesador de textos. 

Programming language Lenguaje de programacidn 

Lenguaje en el que escribe un programa, consistente en un conjunto de reglas que indican 
c6mo se utilizan las palabras y los mimeros. 

PROM 

Programmable Read Only Memory. Memoria programable de 's61o lectura'. Circuito in- 
tegrado de memoria que, una vez grabado, ya no se puede borrar. (V6ase tambien 
EPROM.) 

Prompt Mensaje inductor 

Un corto mensaje o grupo de caracteres que recuerda al lector que el ordenador estd espe- 
randb una entrada. Por ejemplo, en CP/M es >. 
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PSU, Power Supply Unit Fuente de alimentacion 

Circuito que convierte la tensi6n alterna de la red a una tensi6n continua adecuada para 
los circuitos del ordenador (y de los perif6ricos). 

QWERTY keyboard Teclado tipo QWERTY 

Teclado del tipo de las maquinas de escribir estdndar. 

RAM 

Random Access Memory. Memoria de acceso aleatorio. Memoria de la que se puede leer 
y en la que se puede escribir en el curso normal de la ejecucion de un programa, en cual- 
quier direcci6n y en cualquier orden. 

Random access Acceso aleatorio 

Termino que hace referenda a la posibilidad de leer o escribir datos en un disco en el or- 
den que se desee. 

Random number Numero aleatorio 

Niimero generado por el ordenador que no es ni repetible ni predecible. El 464/6128 gene- 
ra una sucesi6n de mimeros pseudoaleatorios. 

Raster scan Barrido de trama 

Sistema de 'escritura' en la pantalla, en que las imigenes se forman mediante un barrido 
de lineas horizontales. 

R/0, Read only De 'solo lecture' 

Atributo de un disco, de un fichero, de una unidad de disco, etc., que impide la escritura 
y la modificaci6n de los datos. 
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R/W, Read write De lecture /escritura 

Atributo de un disco, de un fichero o de una unidad de disco que permite tanto la lectura 
como la escritura o la modificaci6n de los datos. 



Real number Numero real 

Numero que consta (o puede constar) de parte entera y parte decimal. 

Real time En tiempo real 

Efectos que ocurren en el momento presente, a diferencia de aquellos que solo se aprecian 
cuando ha terminado el proceso que los provoco. 

Record Registro 

Unidad de medida de ficheros. En CP/M los registros son de 128 bytes. 

Recursion Recursividad 

Serie de etapas repetidas de un programa o una rutina, tales que cada una esta relacionada 
con la anterior. 

Refresh Renovacion, refresco 

Actualizacion de la informacion, ya sea de la pantalla o de la memoria. No siempre es 
un proceso destructivo; puede tratarse de una confirmacion de la situacion actual, en dis- 
positivos que de otro modo perderian la informacion. 

Register Registro de maquina 

Posici6n de memoria transitoria de la UCP utilizada para almacenamiento provisional de 
los datos. 
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(REM) Remark Comentario, observacion 

Instruccion de un programa que el ordenador no ejecuta; sirve para que el programador 
escriba anotaciones, o para escribir la fecha o niimero de version del programa. 

Reserved word Palabra reservada 

Una palabra que tiene un significado especial para un programa, y que por consiguiente 
no se puede utilizar fuera del contexto predefinido. Por ejemplo, BASIC no puede aceptar 
NEW como nombre de una variable, pues esa palabra esta reservada para otro prop6sito. 

Resolution Resoluoion 

La resolucidn es tanto mayor cuanto menor sea el tamano de los pixels. Da una idea de 
c6mo de 'finos' pueden ser los graficos en un ordenador. 

Reverse Polish notation Notacidn polaca inverse 

M^todo de escribir operaciones aritmeticas, adoptado por ciertos fabricantes de calcula- 
doras, en el que los operadores (+, -, *, /) se ponen despues de los operandos. 

RF iVIodulator Modulador de radiofrecuencia 

M^todo por el cual las seiiales de video del ordenador se codifican y transmiten a la entra- 
da de antena de un televisor. 



ROM 

Read Only Memory. Memoria de 's61o lectura'. Memoria que no se puede borrar. 

Routine Rutina 

Una parte del programa que realiza una tarea especifica. Un subprograma contenido en 
un programa mas general, o que se ha escrito de forma independiente y puede ser incorpo- 
rado a otros programas. 
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RS-232C 

Un sistema concrete estandarizado para los interfaces de comunicacion en serie. Los dis- 
positivos que estdn en los dos extremos de la linea deben estar configurados de acuerdo 
con las normas EIA RS-232C. 



Screen editor Editor de pantaila 

Editor de textos o de programas que permite Uevar el cursor a cualquier lugar de la panta- 
ila para modificar su contenido. 



Scrolling Desplazamiento vertical, rodadura 

Termino que describe la forma en que la pantaila 'rueda' hacia arriba cuando se ha llega- 
do a la ultima linea y se necesita una nueva. 



Sector 

Memoria minima direccionable en un disco. El sistema de AMSTRAD estd basado en sec- 
tores de 512 bytes. 

Separator Separador 

Signo que marca el limite entre palabras reservadas y otros elementos del programa. 

Serial interface Interfax serie 

Este termino hace referenda normalmente al estdndar RS-232C, aunque existen otros me- 
todos de transmision en serie de datos. 

Simulation Simulacidn 

Tecnica de emulacidn de los procesos reales en un ordenador; por ejemplo, simulacidn 
de vuelo, de la conduccibn de autom6viles, etc. 
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Singled sidled Oe una sola cara 

Hace referenda al tipo de disco en el que s61o se pueden grabar datos en una cara. 

Software Programacidn, software 

Conjunto de programas que hacen que el ordenador funcione; en disco, cinta, ROM, 
etcetera. 

Software engineering Ingenieria de programaci6n 

Tecnicas de programaci6n consideradas desde un punto de vista cientifico, para distin- 
guirlas de las no organizadas o arbitrarias. 

Sound generator Generador de sonido 

Parte de un ordenador (circuitos o programas) que genera sonido y ruido. 

Speech recognition Reconocimiento de voz 

Conversidn de la palabra hablada en informacidn reconocible por el ordenador. 

Speech synthesis Sintesis de voz 

Generacidn de voces simuladas mediante una combinaci6n de circuitos y programas. 

Spread sheet l^oja electrdnica 

Un programa que permite introducir datos numericos para disponerlos en filas y colum- 
nas y para hacer con ellos manipulaciones aritmeticas. Al modificar uno de los datos se 
rehacen los calculos para actualizar los resultados por filas y columnas. 

Sprite Agente grafico mdvil 

Objeto grdfico que se puede mover libremente por la pantalla, generado por software o 
por hardware de forma tal que pueda aparecer y desaparecer de modo aparentemente 
aleatorio. 
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Stack Pila 

Area de memoria utilizada para almacenar datos provisionalmente y organizada de forma 
que el ultimo dato depositado en ella es el primero que se recupera. 

Stream Canal 

Via de salida del ordenador; por ejemplo, la pantalla, la impresora o el disco. 

String Cadena literal 

Un objeto formado por caracteres cualesquiera que el programa no puede tratar como 
numerico. Puede constar solamente de digitos, pero el ordenador no lo considera como 
niimero mientras no se lo convierta a niimero mediante la instruccion adecuada. 

Structured programming Programacion estructurada 

Tecnica de programaci6n 16gica y premeditada con la que se escriben programas que flu- 
yen de principio a fin en etapas bien diferenciadas. 

Sub-routine 

V6ase Routine, rutina. 

Syntax error Error de sintaxis 

Cuando se infringen las reglas sobre la utilizacion de palabras clave y variables, BASIC 
emite este mensaje. 

System tracks Pistas del sistema 

Pistas reservadas en el disco para el sistema CP/M. 

Terminal 

Teclado de entrada con pantalla, o bien con teletipo de salida. 
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TPA, Transient Program Area Area para programas transitorios 

Area de memoria que empieza en &0100, en la que en CP/M se almacena los programas 
de usuario y los datos por estos generados. 

Track Pista 

Las pistas son coronas circulares del disco. Cada una se divide en un niimero fijo de secto- 
res. Las pistas y sectores se inscriben en areas especificas del disco en el proceso de 
inicializacion. 



Transient program Programa transitorio 

Un programa de ayuda de CP/M, tal como PIP, que puede ser cargado en la TPA sin 
mas que escribir su nombre en el teclado. 

Truncated Truncado 

Hace referenda a un niimero o una cadena que han sido recortados por la izquierda o 
por la derecha. Cuando el truncamiento es intencionado, suele incluir el redondeo del nii- 
mero. Si es intencionado, los caracteres sobrantes se eliminan para encajar el niimero o 
la cadena en el espacio disponible. 

Trutii table Tabia de verdad 

El resultado de toda operaci6n logica puede ser 'verdadero' o 'falso' (para el ordenador, 
1 o 0). La tabla de verdad da todos los resultados posibles de la operacion en funcion del 
valor de los operandos. 

Turnicey Uave en mano 

Expresion utilizada para describir programas que se ejecutan automdticamente al arran- 
car el sistema. 
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UDK, User Defined Keys Teclas definidas por el usuario 

En el 464/6128 hay 32 teclas a las que se pueden asignar tareas concretas, que el ordenador 
realiza en cuanto el usuario las pulsa. 



Unsigned numiier Numero entero sin signo 

Niimero entero interpretado como positive. 

Utility Programa de ayuda 

Un programa completo con el que se realiza una operacidn comun a varias aplicaciones; 
por ejemplo, ordenar alfab^ticamente o copiar ficheros. 

Variable 

Un dato o grupo de datos puede ser identiUcado en un programa mediante un nombre; 
su valor puede variar como consecuencia de la ejecuci6n del programa. 

Warm start Arranque en caliente 

Es el que se realiza cuando se pulsa [CONTROUC en CP/M. Reinicializa el subsistema 
de disco y devuelve el control al modo directo de consola de CP/M. 

Wildcard character Simbolo comodin 

Este termino hace referenda a los simbolos * y ?. El * representa cierto numero de sim- 
bolos ?. Al mencionar nombres de ficheros, se pueden construir nombres ambiguos po- 
niendo simbolos 7 en lugar de caracteres. 

Write protection Proteccidn contra escritura 

Un mecanismo que impide escribir en un disco o fichero. Un disco protegido contra escri- 
tura es un disco de 'solo lectura'. 
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Apendice 3 

Que usted lo disfrute 



Rebotes 



Sencillo y apasionante. Para un jugador contra el ordenador. Teclado o joystick. 

10 'REBOTES, por Alexander Martin 

20 'copyright (c) AMSOFT 1984 

30' 

40 MODE liBORDER 1:INK 0,1:iNK 1,26:iNK 2,24:INK 3,6 

50 SPEED KEY 15,2 

60 ENV 1,1,18,0,11,0,10 

70 ENT 1.10.2.2 

80 ENV 3,1,0.16.5,-3,2 

90 ENV 2,5,3,3,1.-21,22,9,-3,2 

100 ENT -2,10,2,2,5,-7,1,2,11,3,2,-4,8 

110' 

120' 

130 MOVE 30,32:DRAWR 0,400,1 :MOVE 610,32:DRAWR 0,400,1 

140 PEN 3:L0CATE 3,1:PRINT STRiNG$(36,143) 

150 PEN 2:L0CATE 3,2:PRiNT STRING$(36,143) 

160 PEN V.FOh r=S TO 6:LOCATE 3,r:PRINT STRING$(36,143):NEXT r 

170 bx=9 

180 pelotas=5:puntos=0 

190 PEN 1:G0SUB 680:CLEAR INPUT 

200 IF INKEY$<>CHR$(32) AND JOY(0)<16 THEN 200 

210 LOCATE 3,23:PRINT SPACE$(36):LOCATE 1,24:PRINT SPACE$(40); 

220 GOSUB 690:GOSUB 660:GOTO 280 

230' 

240' 

250 LOCATE bx,24:PRINT' ";STRING$(4,131).-" "iRETURN 

260' 
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270' 

280 xa=1:ya=1:IF INT(RND*2)=1 THEN xa=-xa 

290 PEN 1:G0SUB 250 

300 ORIGIN 0,400 

310 x=bx+4:y=11:x1=x:y1=y 

320' 

330' 

340 x1=x+xa:y1=y+ya 

350 IF x1=3 OR x1=38 THEN xa=-xa 

360 GOSUB 540 

370 IF y1 =24 AND x1>bx+1 AND x1<bx+6THEN ya=-ya:y1=y1-2:S0UND 130, 

44,8,7,1,1:a=((x>bx+5)OR(x<bx+2)):IF a=-1 THEN xa=xa*a:x1=x1+xa: 

y1=y1+1 
380 IF y=25 THEN LOCATE x,y:PRINT' ":GOTO 500 
390 GOSUB 250 

400 t=TEST((16*x1)-1,-(16*y1)-1) 
410 IF too THEN ya=-ya:xz=x1:yz=y1:y1=y1+ya:G0SUB 590:IF t=2 THEN 

puntos=puntos+10:GOSUB 660 
420 IF t=3 THEN puntos=puntos+20:GOSUB 660 
430 IF t=1 THEN puntos=puntos+5:GOSUB 660 
440 IF y1=1 THEN ya=1 

450 LOCATE x,y:PRINT' ":LOCATE x1,y1:PRINT CHR$(231):x=x1:y=y1 
460 IF y=1 OR x=3 OR x=38 THEN SOUND 129,78,8,7,1,1 
470 GOTO 340 
480' 
490' 

500 peiotas=pelotas-1:SOUND 132,19,46,12,2,2: IF pelotas=0 THEN GOTO 620 
510 GOSUB 660:GOTO 280 
520' 
530' 

540 IF (INKEY(8)=0 OR INKEY(74)=0) AND bx>2 THEN bx=bx-2:RETURN 
550 IF (INKEY(1)=0 OR INKEY(75)=0) AND bx<32 THEN bx=bx+2:RETURN 
560 RETURN 
570' 
580' 

590 LOCATE xz,yz:PRINT' ":RETURN 
600' 
610' 

620 IF puntos>=maximo THEN maxlmo=puntos 
630 GOSUB 660:puntos=0:pelotas=5:GOTO 130 
640' 
650' 
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660 SOUND 130,0,20,13.3.0,31: LOCATE 1.25:PRINT"Maximo";maximo; 
670 LOCATE 15,25:PRINT "Punto^';puntos:LOCATE 30,25:PRINT"Pelotas" 

pelotasiRETURN 
680 LOCATE 3,23:PRINT' Pulse barra espaciadora para empezai'': RETURN 
690 LOCATE 1,25:PRINT SPACE$(40);:RETURN 



Bombardero 



Una variaci6n sobre un tema cl^ico. Para un jugador contra el ordenador. Solo teclado. 

10 'BOMBARDERO, por Dave Town 

20 'copyright (c) AMSOFT 1984 

30' 

40MODE1:CLS:INK0,0:BORDER0:INK1,18:INK2,6:INK3,4:INK5,15:INK6,2:INK 

7,24:INK 8,8:INK 9,26:INK 10,10:INK 11,20:INK 12,12 
50 SYMBOL AFTER 240:SYMBOL 241,&40,&60,&70,&7F,&7F,&EF.&7,&0: 

SYM BOL 242,&0,&32,&7A,&FE,&FA,&F2,&E0,&0 
60puntos=0:maximo=0:avi$=CHR${241)+CHR$(242):x=2:y=2:cae=0:a=2:b=2 
70 GOSUB 480 
80CLS 

90 PEN 2:L0CATE 1,15:INPUT'Elija nivel: (AS) a 5 (PRINCIPIANTE) ",nlvel 
100 IF niveKO OR nivel>5 THEN GOTO 90 
110 nivel = nivel +10 
120 LOCATE 1,15:PRiNT CHR$(18);:L0CATE 1,15:INPUT'Elija velocidad: (MAX) 

a 100 (MIN) ",vel 
130 IF vel>100 OR veKO GOTO 120 
140' 

160 'Edificios 
160' 
170 MODE 0:FOR base=5 TO 15:F0R altura=21 TO INT(RND{1)*8+nivel) 

STEP-1:L0CATE base,altura:PEN base-2:PRINT CHR$(143)+CHR$(8)+ 

CHR$(11)+CHR$(244);:NEXT:NEXT 
180 PLOT 0,20,4: DRAW 640,20,4 
190 LOCATE 1,25:PEN 2:PRiNT'PUNTOS";puntos;:LOCATE 12,25: 

PRI NT' MAX" ;maximo; 
200' 

210 'Juego 
220' 
230 LOCATE x-1,y:PRINT' "; 
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240 PEN 1: LOCATE x,y: PRINT avi$;:PEN 2 

250 IF y=21 AND x=15 THEN GOTO 290: ELSE GOTO 340 

260' 

270 Aterriza 

280' 

290 FOR c=0 TO lOOOiNEXT 

300 puntos=puntos+100-(nlvel*2):nlvel=nivel-1:x=2:y=2:a=2:b=2:cae=0 

310 IF niveKIO THEN nivel=10:vel=vel-20 

320 IF veKO THEN vel=0 

330 GOTO 150 

340 FOR c=0 TO vehNEXT 

350 x=x+1 

360 IF x=18 THEN LOCATE x-1,y:PRINT CHR$(18);:x=2:y=y+1:LOGATE x,y:PEN' 

1:PRINTavl$;:PEN2 
370 a$=INKEY$:IF a$=" " AND cae=0 THEN cae=1:b=y+2:a=x 
380 IF y=21 THEN cae=0 
390 IF cae=1 THEN LOCATE a,b:PRINT CHR$(252);: LOCATE a,b-1:PRINT' 

";:b=b+1:IF b>21 THEN LOCATE a,b:PRINT' ";:LOCATE a.b-1:PRINT' 

";:a=0:b=0:cae=0:SOUND 3,4000,10,12,0.0,10 
400ga=(a-0.5)*32:gb=400-(b*16):bomba=TEST(ga,gb) 
410 IF bomba>0 THEN GOTO 670 

420gx=((x+1.5)*32):gy=408-(y*16):choque=TEST(gx,gy) 
430 IF choque>0 THEN GOTO 570 
440 GOTO 230 
460' 

460 'Instrucciones 
470' 
480 LOCATE 1,2:PEN 1 .PRINT' Usted esta pilotando un avion sobre una ciudad 

desierta y tiene que pasar sobre los edificios para aterrizar y repostar. Su 

avion se mueve de izquierda a derecha.";:PRINT 
490 PRINT:PRINT'AI llegar a la derecha, el avion vuelve a salir por la izquierda, 

pero MAS BAJO. Dispone de un numero limitado de bombas y puede 

hacerlas caer sobre los edificios pulsando la BARRA ESPACIAOORA.";: 

PRINT 
500 PRINT:PRINT'Cada vez que aterriza, sube la altura de los edificios y la 

velocidad.";:PRINT:PRINT:PRINT'UNA VEZ DISPARADA UNA BOMBA, 

YA NO PUEDE DISPARAR OTRA MIENTRAS NO HAYA EXPLOSIONADO 
LA PRIMERAIiir; 
510 PEN 2:LOCATE 1,24:PRINT:PRINT' Pulse una tecia para empezar."; 
520 a$=INKEY$:IF a$= " " GOTO KO 
530 RETURN 
540' 
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550 'Colision 

560' 

570 LOCATE x-1.y:PRINT CHR$(32)+CHR$(32)+CHR$(32)+CHR$(253)+CHR$(8) 

+CHR$(238)+CHR$(8): 
580 FOR t=1 TO 10:SOUND 7,4000.5,15,0,0.5: PEN t:PRINT CHR$(253)+CHR$(8)+ 

CHR$(238)+CHR$(8)+CHR${32)+CHR$(8);:FOR tm=0 TO 50:NEXT:NEXT:PEN 

2 
590 GLS: LOCATE 1,5: PRINT' Ha conseguido" ;puntos,-" puntos." 
600 IF puntos>maximo THEN maximo=puntos:LOCATE 1,8:PRINT'BATI0 EL 

RECORDI.i"; 
610 puntos=0: LOCATE 1,12:PRINT' Pulse V para volver a empezai"; 
620 a$=INKEY$:IF a$="v" OR a$="V' GOTO 630 ELSE GOTO 620 
630 PEN 1:M0DE 1:x=2:y=2:a=2:b=2:GOTO 90 
640' 

650 'Ediflcio bombardeado 
660' 
670 LOCATE a,b-1:PRINT' "+CHR$(8);:PEN 4:F0R tr=1 TO INT(RND(1)*3)+1 

:puntos=puntos+5:SOUND 3,4000.10,12,0,0,10: LOCATE a,b:FOR t=0 TO 4: 

PRINT CHR$(253)+CHR$(8)+CHR$(32)+CHR$(8);:NEXT:b=b+1 
680 IF b=24 THEN b=b-1 
690 NEXT 
700 LOCATE 7,25:PRINT puntos;:cae=0:a=x:b=y:GOTO 230 



Tele tenis 



Con el empezo todo, y sigue siendo divertido. Para dos jugadores, o para uno contra el 
ordenador. Teclado o joystick(s). 

10 ' TELE TENIS, por David Radisic 

20 ' copyright (c) AMSOFT 1985 

30' 

40 DEFINT a-z 

50 comp=1 

60 ENV 1,=11,20,=9,5000 

70 MODE 1:INK 0,10:BORDER 10:INK 1,26:INK 2,18:INK 3,0 

80 GOSUB 710 

90 GOSUB 150 

100 GOSUB 330 

110 GOSUB 420 
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120 LOCATE 13,1:PRINT USING"#### ";puntos1; 

130 LOCATE 35.1:PRINT USING" #### ";puntos2; 

140 GOTO 100 

150 PEN 2 

160 x(1)=3:y(1)=5 

170 x(2)=37:y(2)=22 

180borde$=CHR$(233):borde2$=STRING$(2,207) 

190 LOCATE 1,3:PRINT STRING$(39,borde$):PRINT STRING$(39,borde$) 

200 FOR i=1 TO 19 

210 PRINT borde2$;TAB(38);borde2$ 

220 NEXT 

230 PRINT STRING$(39,borde$):PRINT STRING$(39,borde$); 

240 WINDOW #1,3,37,5,23 

250 CLS#1 

260 SYMBOL 240,0,60,126,126,126,126,60,0 

270 raq$=" l"+CHR$(8)+CHR$(10)+" I" 

280 bor$=" "+CHR$(8)+CHR$(10)+" " 

290 pel$=CHR$(240) 

300 PEN 3 

310 LOCATE 2,1:PRINT'Jugador1: ff';:LOCATE 24,1:PRINT'Jugador 2: ff' 

320 RETURN 

330 n=INT(RND*2):CLS#1:punto=0 

340 PEN 3 

350 FOR 1=1 TO 2:L0CATE x(i).y(i):PRINT raq$;:NEXT 

360 ON n GOTO 390 

370xb=21:dx=1 

380 GOTO 400 

390xb=19:dx=-1 

400 yb=12:dy=INT(RND*3)-1 

410 RETURN 

420 GOSUB 600 

430 oxb=xb:oyb=yb 

440 GOSUB 500 

450 IF nota>0 THEN SOUND 129,nota,50,15,1 

460 LOCATE oxb,oyb:PRINT' "; 

470 LOCATE xb,yb:PRiNT pel$ 

480 IF punto=0 THEN 420 

490 RETURN 

500 LOCATE xb+dx,yb+dy:ch$=COPYCHR$(#0) 

510 nota=0 

520 IF ch$=" " THEN xb=xb+dx:yb=yb+dy:RETURN 
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530 IF ch$="l" THEN dx=2-dx-2:dy=INT(RND*3)-1:nota=200:RETURN 

540 IF ch$=LEFT$(borde2$.1) THEN 570 

550 IF chS=borde$ THEN dy=2-dy-2:nota=250 

560 RETURN 

570 IF dx>0 THEN puntos1=puntos1+1 ELSE puntos2=puntos2+1 

580 punto=1:nota=2000 

590 RETURN 

600p(1)=(INKEY(69)>=0)+(INKEY(72)>=0)+ABS((INKEY(71)>=0)+(INKEY(73)> 

=0))*2 
610 IF comp=1 THEN p(2)=ABS(y(2)<yb)*2+(y(2)>yb):GOTO 630 
620p(2)=(INKEY(4)>=0)+(INKEY(48)>=0)+ABS((INKEY(5)>=0)+(INKEY(48)>=0 

))*2 
630 PEN 3 
640 FOR 1=1 TO 2 

650 LOCATE x(i),y(i)+p(i):ch$=COPYCHR$(#0) 

660 IF ch$=" " THEN LOCATE x(!).y(i):PRINT bor$;:y(l)=y(i)+ROUND{p(i)/2) 
670 LOCATE x(i).y(i): PRINT raq$; 
680 NEXT 
690 PEN 1 
700 RETURN 

710 PEN 2:PRINT:PRINT TAB(15r Ping-Pong" :PRINT TAB(15r " 

720 PEN 3:PRINT:PRINTTAB(10r'Para mover raquetas: 

730 PRINT:PRINT:PEN 1 

740 PRINT' Jugador 1 Jugador 2 Direccion":PRINT 

750 PRINT' A 6 ARRIBA" 

760 PRINT' Z 3 ABAJO':PRINT 

770 PEN 3:PRINT:PRINT TAB(14r'o con joysticks" 

780 PRINT:PRINT:PRINT:PRINT 

790 PEN 2 

800 PRINT TAB(7rElija <1> o <2> jugadores" 

810 i$=INKEYf:IF i$<>"1" AND i$<>"Z' THEN 810 

820 IF i$="1" THEN comp=1 ELSE comp=0 

830 MODE 1:RETURN 
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Esgrima electrico 



jTrate de 'tocar' a su oponente! Para dos jugadores. Teclado o joysticks. 

10 ' ESGRIMA ELECTRICO, por Alexander Martin 

20 ' copyright (c) AMSOFT ^98S 

30' 

40 DEFINT a-z 

50 MODE 

60 GOSUB 980 

70 GOSUB 1370 

80 GOSUB 270 

90 GOSUB 1520 

100 GOSUB 1370 

110 GOSUB 1270 

120' 

130' 

140 REM empezar 

150 IF termlna THEN GOTO 100 

160 GOSUB 240 

170 FRAME:IF pidir THEN GOSUB 570 ELSE FRAME:FRAME 

180 FRAME:IF p2dlr THEN GOSUB 620 ELSE FRAME:FRAME 

190 IF p1sa=-1 THEN GOSUB 670 

200 IF p2sa=-1 THEN GOSUB 720 

210 GOTO 140 

220' 

230' 

240 IF j THEN 380 ELSE 480 

250' 

260' 

270 CLS:PEN 6 

280 PRINT:PRINT' ELIJA CONTROL" 

290 PRINT:PRINT:PRINT:PRINT' pulse J/T [INTROr 

300 LOCATE 4,10: PRINT' JOYSTICKS" ;TAB(4).-"0 TECLAS" 

310 LOCATE 12,10:IF j THEN PRINT'*":ELSE PRINT' " 

320 LOCATE 12,11:IF j THEN PRINT' ":ELSE PRINT'*" 

330 IF NOT(INKEY(45)) THEN j=-1 

340 IF NOT(INKEY(37)) THEN j=0 

350 IF N0T(INKEY(18)) THEN RETURN ELSE 310 

360' 

370' 
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380 p1=JOY(0):p2=JOY(1) 
390 p1dir=(p1 AND 1)*-1+(p1 AND 2)*0.5 
400 p2dir=:(p2 AND 1)*-1+(p2 AND 2)*0.5 

410 IF pi AND 16 THEN p1sa=p1sa-1:IF p1sa=-1 THEN AFTER 15 GOSUB 770 
420 IF p2 AND 16 THEN p2sa=p2sa-1:IF p2sa=-1 THEN AFTER 15 GOSUB 770 
430 IF pIsa THEN p1dir=0 
440 IF p2sa THEN p2dir=0 
450 RETURN 
460' 
470' 

480p2dir=((iNKEY(4)=0)*1)+((INKEY(5)=0)*-1) 
490p1dir=((iNKEY(69)=0)*1)+((INKEY(71)=0)*-1) 

500 IF INKEY(63)=0 THEN p1sa=p1sa-1:IF p1sa=-1 THEN AFTER 15 QOSUB 770 
510 IF INKEY(10)=0 THEN p2sa=p2sa-1:IF p2sa=-1 THEN AFTER 15 GOSUB 770 
520 IF pIsa THEN p1dir=0 
530 IF p2sa THEN p2dir=0 
540 RETURN 
550' 
560' 

570 pt=p1wp+p1dir:IF pt>25 OR pt<6 THEN RETURN ELSE p1wp=pt 
580 p1dir=0 

590 PEN 1:L0CATE 3,p1wp:CLS#3:PRINT CHR$(209)::RETURN 
600' 
610' 

620 pt=p2wp+p2dir:IF pt>25 OR pt<6 THEN RETURN ELSE p2wp=pt 
630 p2dlr=0 

640 PEN 2:L0CATE 18,p2wp:CLS#5:PRINT CHR$(211);:RETURN 
650' 
660' 

670 PAPER #4,4:WINDOW #4,4,17,p1wp,p1wp:CLS#4:FRAME:FRAME 
680 PAPER #4,0:CLS#4 
690 GOTO 570 
700' 
710' 

720 PAPER #6,5:WINDOW #6,4,17,p2wp,p2wp:CLS#6:FRAME:FRAME 
730 PAPER #6,0:CLS#6 
740 GOTO 620 
750' 
760' 

770 pwpe=(p1wp=p2wp):IF pIsa AND N0T(p2sa) AND pwpe THEN p1sc= 
p1sc+1:S0UND 132,120,10,0,1.0:PRINT#1,a$(p1sc);:IF p1sc=9 THEN 860 
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780 IF p2sa AND N0T(p1sa) AND pwpe THEN p2sc=p2sc+1:SOUND 132,100,10. 

0,1,0:PRINT#2.a$(p2sc);:IF p2sc=9 THEN 860 
790 IF pIsa THEN SOUND 132,40,70,0,1,1 
800 IF p2sa THEN SOUND 132,56,70,0,1,1 
810 p1sa=0 
820 p2sa=0 
830 RETURN 
840' 
850' 

860 PEN 6 

870 LOCATE 2,10:PRINT'FIN DE LA PARTIDA" 
880 IF p1sc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:INK 1,0 
890 SOUND 129,1000,0,12,3:SOUND 130,900,0,12.3 
900 WHILE INKEY$<>"":WEND 
910 tl=TIME:WHILE tl+2000>TIME:WEND 
920 WHILE INKEY$="':WEND 
930 CLS 
940 termina=-1 
950 RETURN 
960' 
970' 

980 a$(0)= "111101101101111" 
990 a$(1)= "001001001001001" 
1000 a$(2)="1110011111001ir" 
1010 a$(3) ="11 1001 11 1001 111"" 
1020 a$(4)="" 100100101111001"" 
1030 a$(5)="11110011100111T" 
1040 a$(6)="111100111101111"" 
1050 a$(7)="" 11100100101001a" 
1060 a$(8)="111101111101111" 
1070 a$(9)='"11110111100100r" 
1080 FOR n=0 TO 9 
1090 tiempo=LEN(a$(n)) 
1100 FOR n2=1 TO tiempo 
1110 IF MID$(a$(n),n2.1)="r"THEN MID$(a$(n),n2,1)=CHR$(143) ELSE 

MID$(a$(n),n2,1)=CHR$(32) 
1120 NEXT n2,n 
1130' 
1140' 

1150 b$=""ESGRIMA ELECTRIC^' 
1160 c$=CHR$(32)+CHR$(164)+"" Alexander Martin"" 
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1170 ENV 1,=9,2000:ENT -1.6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0.127,0.0,127,0,0 

1190 ENV 3,=9,9000 

1200' 

1210' 

1220 BORDER 

1230 INK0,12:PEN #4,1:PEN #6.2:PEN #1.1:PEN #2.2:PAPER #1.3:PAPER #2.3: 

PEN #0.6 
1240 RETURN 'de preparer constantes 
1250' 
1260' 

1270 INK 0.12:INK 1.2:INK 2.6:INK 3,13:INK 4,20:INK 5,17:INK 6,20 
1280 WINDOW #3,3,3,6,25:WINDOW #5,18.18.6.25 

1290 WINDOW #1.3,5.1.5:WINDOW #2.16.18,1,5:WINDOW #7,1,20,1,5:PAPER #7,3 
1300CLS:CLS#7:PRINT#1,a$(0);:PRINT#2.a$(0);:p1sc=0:p2sc=0:p1wp=5:p2wp = 

24:p1dlr=1:p2dir=1 
1310 GOSUB 570:GOSUB 620 
1320 SOUND 1.1000,0,12,2:SOUND 2,900,0,12,2 
1330 p1sa=0:p2sa=0:termina=0 
1340 RETURN 
1350' 
1360' 
1370 CLS 
1380 PEN 7 

1390 FOR n=1 TO LEN(b$) 
1400 LOCATE 1+n,10 
1410 FOR n2=LEN(b$) TO n STEP-1 
1420 PRINT MID$(b$,n2,1) 
1430 LOCATE 1+n,10 
1440 SOUND 135,20*n2,5,12,2,1 
1460 NEXT n2,n 

1460 SOUND 1%,100,0,13.3,1.20 
1470 PEN 6:PRINT:PRINT:PRINT:PRINT c$ 
1480 FOR n=1 TO 5000:NEXT 
1490 RETURN 
1500' 
1510 ' 

1520 IF j THEN RETURN 
1530 CLS 
1540 LOCATE 6,5 
1550 PRINT' CONTROLES" 
1560 PRINT 
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1570 PRINT'JUGADOR 1 JUGADOR T 

1580 PRINT 

1590 PRINT' A arrlba ff' 

1600 PRINT' Z abajo 7' 

1610 PRINT' X disparo 7' 

1620 t!=TIME:WHILE t!+1000>TIME:WEND 

1630 RETURN 



Amthello 



El juego de la reflexion. Trate de rodear y capturar los cuadrados de su oponente sin dejar 
los suyos al descubierto. Para un jugador contra el ordenador. S61o teclado. 

10 AMTHELLO, por M. J. Gribbins 

20 'copyright (c) AMSOFT 1984 

30' 

40 BORDER 14 

50 CLEAR 

60 MODE 1:PEN 0:PAPER 1:CLS 

70 INK 0,0:INK 1,14:INK 2,18:INK 3,26 

80 LOCATE 2,3:PEN 3:PRINT'A":LOCATE 3,4:PRINT'M" -.LOCATE 4 

,5.PRINT'T':L0CATE 5,6:PRINT'H" 
90 LOCATE 6,7: PRI NT' F': LOCATE 7,8: PRI NT' L': LOCATE 8,9:PRI 

NT' L": LOCATE 9,10: PRI NT' O' 
100 WINDOW #1,2,39,22,25:PAPER #1,1:PEN #1,0:CLS#1 
110 PEN 

120 LOCATE #1,5,1:PRINT#1,"LAS NEGRAS SIEMPRE EMPIEZAN" 
130 LOCATE #1,4,3:PRINT#1,"ELIJA BLANCAS <B> O NEGRAS <N> " 
140 b$=INKEY$:IF b$= " " THEN 140 

150 IF b$="B" OR b$="b" THEN q%=3:n%=0:GOTO 210 
160 IF b$="N" OR b$="n" THEN q%=0:n%=3:GOTO 210 
170 CLS#1:L0CATE #1,4,3 

180 PRINT#1," SOLO BLANCAS O NEGRAS" 
190 FOR t=0 TO 1000:NEXT t 
200 GOTO 140 

210 DIM c%(10,10),p%(9,9),c1%(8),c2%(8),cx%(9),cy%(9) 
220 i1%=2:i1%=2:i2%=7:j2%=7 
230 FOR i%=0 TO 9 
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240 c%(i%,o%)=6:c%(0,i%)=6 

250 c%(9,i%)=6:c%(i%,9)=6 

260 NEXT i% 

270 FOR i%=1 TO 8 

280 READ c1%(i%),c2%(i%) 

290 FOR j%=1 TO 8 

300 READ p%(i%,j%) 

310 c%(i%J%)=6 

320 NEXT j%:NEXTi% 

330c%(4,4)=3:c%(4,5)=0:c%(5,4)=0:c%(5,5)=3 

340 FOR k%=1 TO 58 

350 READ ar%,br%,cr%,dr% 

360 PLOT ar%,br%:DRAW cr%,dr%,0 

370 NEXT k% 

380 GOSUB 1460 

390 IF q%=3 GOTO 770 

400 CLS#1:INPUT #1," ELIJA FILA";e% 

410 IF e%<1 OR e%>8 GOTO 400 

420 LOCATE #1.1,3:INPUT #1," ELIJA COLUMNA";d% 

430 IF d%<1 OR d%>8 GOTO 420 

440 IF c%{d%,e%)=6 GOTO 480 

400 CLS#1:L0CATE #1.5,2:PRINT#1/'ESE CUADRADO YA ESTA OCUPADOr' 

460 FOR t=1 TO 1000:NEXT t 

470 GOTO 400 

480 PLOT 270+(30*d%),70+(30*e%):DRAW 290+(30*d%),89+(30*e%),q% 

490 PLOT 290+(30>i>d%),70+(30*e%):DRAW 270+(30*d%),89+(30*e%),q% 

500 GOTO 540 

510 FOR m%=0 TO 19 STEP 2: PLOT 270+(30*d%),70+m%+(30*e%) 

520 DRAW 290+(30*d%),70+m%+(30*e%),6:NEXT m% 

530 GOTO 400 

540 vrx%=0 

550 FOR k%=1 TO 8 

560 vr%=0:c3%=d%:c4%=e% 

570 C3%=c3%+c1%(k%):c4%=c4%+c2%(k%) 

580 IF c%(c3%,c4%)=n% GOTO 590 ELSE 600 

590 vr%=vr%+1:G0T0 570 

600 IF c%(c3%,c4%)=6 GOTO 610 ELSE 620 

610 NEXT k%:GOTO 670 

620 IF vr%=0 GOTO 610 ELSE 630 

630 vrx%=vrx%+vr% 

640 C3%=c3%-c1%(k%):c4%=c4%-c2%(k%) 

650 IF C%(c3%,c4%)=6 GOTO 610 ELSE 660 
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660 c%(c3%.c4%)=q%:GOTO 640 

670 IF vrx%=0 GOTO 680 ELSE 710 

680 CLS#1:PRINT#1,"ESO NO ES POSIBLE' 

690 FOR t=1 TO 1000:NEXT t 

700 GOTO 510 

710 e%=e%:d%=d%:vrx%=vrx% 

720 CLS#1:PRINT#1,"USTED VA A LA LINEA ";e% 

730 PRINT#1." Y A LA COLUMNA ";d% 

740 LOCATE #1,2,4:PRINT#1."CON LO QUE CONSIGUE ";vrx%;" C 

UADRADO(Sr' 
750 c%(d%,e%)=q%:GOSUB 1710 
760 GOSUB 1460 

770 CLS#1:L0CATE #1.10,2:PRINT#1/'AHORA ME TOCA A Ml ... ! " 
780 p%=0:vrx%=0:vry%=0 
790 IF i1%*j1%=1 AND i2%*j2%=64 GOTO 860 
800 FOR k%=2 TO 7 
810 IF c%(2,k%)<>6 THEN i1%=1 
820 IF c%(7,k%)<>6 THEN 12% =8 
830 IF c%(k%,2)<>6 THEN j1%=1 
840 IF c%(k%,7)<>6 THEN j2%=8 
850 NEXT k% 
860 FOR i%=l1% TO 12% 
870 FOR i%=j1% TO i2% 
880 IF c%(i%,j%)=6 GOTO 1030 
890 NEXT j%:NEXT i% 
900 IF p%>0 THEN 1000 
910 IF pas%=1 GOTO 920 ELSE 940 
920 CLS#1:PRINT#1,"BLOQUEADOI YO TAMBIEN TENGO QUE PASAR. FIN 

DE LA PARTIDA" 
930 FOR t=1 TO 1000:NEXT t:GOTO 1550 
940 CLS#1:L0CATE #1,18,2:PRINT#1/'TENGO QUE PASAR" 
950 GOSUB 2720 

960 IF pas%=1 GOTO 970 ELSE 990 
970 CLS#1:PRINT#1,"BL0QUEAD0! USTED TAMBIEN TIENE QUE PASAR. FIN 

DE LA PARTIDA." 
975 RETURN 

980 FOR t=1 TO 1000:NEXT t:GOTO 1550 
990 GOTO 400 

1000 IF lc%=0 THEN lc%=1:RAND0MIZE lc%:rl%=RND(lc%) 
1010 cx1%=cx%(rl%):cx2%=cy%(rl%) 
1020 GOTO 1220 
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1030 vrx%=0 

1040 FOR k%=1 TO 8 

1050 vr%=0:c3%=i%:c4%=j% 

1060c3%=c3%+c1%(k%):c4%=c4%+c2%{k%) 

1070 IF c%(c3%,c4%)=q% GOTO 1080 ELSE 1090 

1080 vr%=vr%+1:G0T0 1060 

1090 IF c%(c3%,c4%)=6 GOTO 1100 ELSE 1110 

1100 NEXT k%:GOTO 1130 

1110 IF vr%=o% GOTO 1100 ELSE 1120 

1120 vrx%=vrx%+vr%:GOTO 1100 

1130 IF vrx%=0 GOTO 890 

1140 IF p%(i%,j%)<p% GOTO 890 

1150 IF p%(i%,j%)>p% GOTO 1160 ELSE 1170 

1160 p%=p%(i%.j%):vry%=vrx%:lc%=0:cx%(0)=i%:cy%(0)=j%:GOTO 890 

1170 IF vry%>vrx% GOTO 890 

1180 IF vry%<vrx% GOTO 1190 ELSE 1200 

1190 lc%=0:vry%=vrx%:cx%(0)=i%:cy%(0)=j%:GOTO 890 

1200lc%=lc%+1:cx%(lc%)=i%:cy%(lc%)=j% 

1210 GOTO 890 

1220 cx2%=cx2%:cx1%=cx1%:vry%=vry% 

1230 CLS#1:PRINT#1/'Y0 VOY A LA FILA ";cx2% 

1240 PRINT#1/' Y A LA COLUMNA ";cx1% 

1250 LOCATE #1,1,4:PRINT#i;'C0N LO QUE CONSIGO ";vry%;" C 

UADRADOCSr 
1260 PLOT 270+(30*cx1%),70+(30*cx2%):DRAW 290+(30*cx1%),89+(30*cx2%) 

.n% 
1270 PLOT 290+(30*cx1%),70+(30*cx2%):DRAW 270+(30*cx1%),89+(30*cx2%) 

,n% 
1280 FOR t=1 TO 1000:NEXT t 
1290 FOR k%=1 TO 8 
1300 vr%=0:c3%=cx1%:c4%=cx2% 
1310c3%=c3%+c1%(k%):c4%=c4%+c2%(k%) 
1320 IF c%(c3%,c4%)=q% GOTO 1330 ELSE 1340 
1330 vr%=vr%+1:GOTO 1310 
1340 IF c%(c3%,c4%)=6 GOTO 1350 ELSE 1360 
1350 NEXT k%:GOTO 1400 
1360 IF vr%=0 GOTO 1350 
1370c3%=c3%-c1%(k%):c4%=c4%-c2%{k%) 
1380 IF c%(c3%,c4%)=6 GOTO 1350 
1390 c%{c3%,c4%)=n%:GOTO 1370 
1400 c%(cx1%.cx2%)=n% 
1410 GOSUB 2720 
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1420 GOSUB 1460 

1430 IF pas%=1 GOTO 14«) ELSE 1460 

1440 CLS#1:PRINT#1." USTED TIENE QUE PASAR":FOR t=1 TO1000:NEXT t 

:GOTO 770 
1460 GOTO 400 
1460 FOR i%=1 TO 8 
1470 FOR j%=1 TO 8 
1480 FOR m%=1 TO 19 STEP 2 

1490z%=270+(30*i%):h%=70+(30*i%):w%=h%+m% 
1600 PLOT z%,w%:DRAW z%+20.w%.c%(i% j%) 
1610 NEXT m%:NEXT i%:NEXT 1% 
1520 x%=x%+1 
1530 IF x%=61 GOTO 1550 
1540 RETURN 
1550 cq%=0:cn%=0 
1560 FOR i%=1 TO 8 
1570 FOR i%=1 TO 8 

1680 IF c%(i%j%)=q% THEN cq%=cq%+1 
1590 IF c%(l%.i%)=n% THEN cn%=cn%+1 
1600 NEXT j%:NEXT i% 
1610 IF cq%>cn% GOTO 1680 
1620 IF cq%=cn% GOTO 1630 ELSE 1650 
1630 CLS#1:L0CATE #1,25,2:PRINT#1/'BLOQUEADO' 
1640 END 
1650 CLS#1:LOCATE #1.5,1:PRINT#1/' USTED TIENE ";cq%.-" CUADRADOS. 

YOTENGO";cn% 
1660 LOCATE #1,11,3:PRINT#i;'Y0 HE GANADO ... !!!" 
1670 END 
1680 CLS#1:L0CATE #1,5,1:PRINT#1," USTED TIENE ";cq%,"" CUADRADOS. YO 

TENGO";cn% 
1690 LOCATE #1,5,3:PRINT#1,"MUY BIEN. USTED HA GANADO ... !ir 
1700 END 

1710 IF c%(2,2)=q% AND (c%(3.1)=n% OR c%(1,3)=n%) GOTO 1720 ELSE 1730 
1720 p%(3.1)=1:p%(1,3)=1 

1730 IF c%{7,7)=q% AND (c%(8,6)=n% OR c%(6.8)=n%} GOTO 1740 ELSE 1750 
1740 p%(8,6)=1:p%(6,8)=1 

1750 IF c%(2,7)=q% AND (c%(1,6)=n% OR c%(3,8)=n%) GOTO 1760 ELSE 1770 
1760 p%{1.6)=1:p%{3,8)=1 

1770 IF c%(7,2)=q% AND (c%{6,1)=n% OR c%(8.3)=n%) GOTO 1780 ELSE 1790 
1780 p%(6.1)=1:p%(8.3)=1 

1790 IF d%=1 OR d%=8 OR e%=:1 OR e%=8 GOTO 1820 
1800 IF cx1%=1 OR cx1%=8 OR cx2%=1 OR cx2%=8 GOTO 1820 



A3/16 Que usted lo disfrute . . 



1810 RETURN 

1820 FOR j%=1 TO 8 STEP 7 

1830 FOR i%=2 TO 7 

1840 IF c%(i%j%)=n% GOTO 1850 ELSE 1860 

1850p%(l%+1j%)=21:p%(i%-1,j%)=21 

1860 IF c%(j%,i%)=n% GOTO 1870 ELSE 1880 

1870 p%(j%.i%+1)=21:p%(j%,i%-1)=21 

1880 NEXT i% 

1890 FOR i%=2 TO 7 

1900 IF c%(l%,i%)=q% GOTO 1910 ELSE 1920 

1910 p%(l%+1,j%)=2:p%(i%-1j%)=2 

1920 IF c%(j%,i%)=q% GOTO 1930 ELSE 1940 

1930 p%(j%,i%+1)=2:p%(j%,l%-1)=2 

1940 NEXT i%:NEXT i% 

1950p%{1,2)=1:p%(1,7)=1:p%(2,1)=1:p%{7,1)=1 

1960p%(2.8)=1:p%(7,8)=1:p%(8.2)=1:p%(8.7)=1 

1970 FOR i%=2 TO 7 

1980 IF c%(1.l%-1)=q% AND c%(1,i%+1)=q% THEN p%(1.i%)=25 

1990 IF c%(8,i%-1)=q% AND c%(8,i%+1)=q% THEN p%(8,i%)=25 

2000 IF c%(l%-1,1)=q% AND c%{l%+1,1)=q% THEN p%(!%.1)=25 

2010 IF c%(i%-1,8)=q% AND c%(i%+1,8)=q% THEN p%(i%,8)=25 

2020 NEXT i% 

2030 FOR j%=1 TO 8 STEP 7 

2040 FOR i%=4 TO 8 

2050 IF c%(j%.l%)<>n% GOTO 2140 

2060 ic%=i%-1:IF c%(j%.ic%)=6 GOTO 2140 

2070 IF c%(j%,lc%)=q% GOTO 2080 ELSE 2090 

2080 lc%=ic%-1:G0T0 2070 

2090 IF c%(i%,ic%)=6 GOTO 2110 

2100 GOTO 2140 

2110 IF lc%=0 GOTO 2140 

2120 IF c%{j%,i%+1)=q% AND c%(j%.!c%-1)=6 GOTO 2140 

2130 p%{j%,ic%)=26 

2140 IF c%(i%.j%)<>n% GOTO 2230 

2150 ic%=i%-1:IF c%(ic%,i%)=6 GOTO 2230 

2160 IF c%(ic%,j%)=q% GOTO 2170 ELSE 2180 

2170 ic%=ic%-1:GOTO 2160 

2180 IF c%(ic%,j%)=6 GOTO 2200 

2190 GOTO 2230 

2200 IF lc%=0 GOTO 2230 

2210 IF c%{i%+1.j%)=q% AND c%(lc%-1,j%)=6 GOTO 2230 

2220 p%(!c%,j%)=26 
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2230 NEXT i% 
2240 FOR i%=1 TO 5 
2250 IF c%(j%.i%)<>n% GOTO 2340 
2260 ic%=i%+1;IF c%(j%,ic%)=6 GOTO 2340 
2270 IF c%(j%,[c%)=q% GOTO 2280 ELSE 2290 
2280 ic%=ic%+1:G0T0 2270 
2290 IF c%(j%,ic%)=6 GOTO 2310 
2300 GOTO 2340 
2310 IF lc%=9 GOTO 2340 

2320 IF c%(j%,i%-1)=q% AND c%{j%,lc%+1)=6 GOTO 2340 
2330 p%{i%,ic%)=26 
2340 IF c%(l%.j%)<>n% GOTO 2430 
2350 lc%=l%+1:IF c%(lc%,j%)=6 GOTO 2430 
2360 IF c%(lc%.j%)=q% GOTO 2370 ELSE 2380 
2370 lc%=ic%+1:G0T0 2360 
2380 IF c%(lc%,j%)=6 GOTO 2400 
2390 GOTO 2430 
2400 IF ic%=9 GOTO 2430 

2410 IF c%{i%-1,j%)=q% AND c%(lc%+1,j%)=6 GOTO 2430 
2420 p%(ic%,j%)=26 
2430 NEXT i%:NEXT j% 
2440 IF c%(1,1)=n% GOTO 2460 ELSE 2460 
2450 FOR i%=2 TO 6:p%(1.i%)=20:p%(l%.1)=20:NEXT i% 
2460 IF c%{1.8)=n% GOTO 2470 ELSE 2480 
2470 FOR i%=2 TO 6:p%(l%.8)=20:p%(1,9-i%)=20:NEXT i% 
2480 IF c%{8,1)=n% GOTO 2490 ELSE 2500 
2490 FOR i%=2 TO 6:p%{9-i%.1)=20:p%(8.i%)=20:NEXT 1% 
2500 IF c%(8.8)=n% GOTO 2510 ELSE 2520 
2510 FOR i%=3 TO 7:p%(i%,8)=20:p%{8,l%)=20:NEXT i% 
2S2a IF c%(1,1)<>6 THEN p%(2,2)=5 
2530 IF c%{1,8)<>6 THEN p%(2,7)=5 
2540 IF c%(8.1)<>6 THEN p%(7.2)=5 
2550 IF c%(8,8)<>6 THEN p%(7,7)=5 
2560p%(1,1)=30:p%(1,8)=30:p%(8,1)=30:p%(8,8)=30 
2570 FOR i%=3 TO 6 
2580 IF c%(1,i%)=n% THEN p%(2,l%)=4 
2590 IF c%(8,i%)=n% THEN p%(7.i%)=4 
2600 IF c%(i%,1)=n% THEN p%(i%,2)=4 
2610 IF c%(l%,8)=n% THEN p%{i%,7)=4 
2620 NEXT i% 

2630 IF c%(7,1)=q% AND c%{4.1)=n% AND c%(6.1)=6 AND c%(5,1)=6 THEN p 
%{6,1)=26 
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2640 IF c%(1,7)=q% AND c%(1.4)=n% AND c%(1.6)=6 AND c%{1,5)=6 THEN p 

%(1.6)=26 
2650 IF c%(2,1)=q% AND c%(5.1)=n% AND c%(3,l)=6 AND c%(4,1)=6 THEN p 

%(3.1)=26 
2660 IF c%(1,2)=q% AND c%(1,5)=n% AND c%(1,3)=6 AND c%(1,4)=6 THEN 
p%(1.3)=26 
2670 IF c%(8,2)=q% AND c%(8.5)=n% AND c%(8.3)=6 AND c%(8.4)=6 THEN p 

%(8,3)=26 
2680 IF c%(2,8)=q% AND c%(5,8)=n% AND c%(3,8)=6 AND c%(4,8)=6 THEN p 

%(3.8)=26 
2690 IF c%(8,7)=q% AND c%(8,4)=n% AND c%(8,5)=6 AND c%(8.6)=6 THEN p 

%(8,6)=26 
2700 IF c%(7,8)=q% AND c%(4,8)=n% AND c%(5,8)=6 AND c%(6.8)=6 THEN p 

%(6,8)=26 
2710 RETURN 
2720 pas%=0 
2730 FOR i%=1 TO 8 
2740 FOR j%=1 TO 8 
2750 IF c%{i%,j%)=q% GOTO 2780 
2760 NEXT j%:NEXT i% 
2770 pas%=1:RETURN 
2780 FOR k%=1 TO 8 
2790 vr%=0:c3%=i%:c4%=j% 
2800c3%=c3%+c1%(k%):c4%=c4%+c2%{k%) 
2810 IF c3%<1 OR c3%>8 GOTO 2820 ELSE 2830 
2820 NEXT k%:GOTO 2760 

2830 IF c4%<1 OR c4%>8 GOTO 2820 ELSE 2840 
2840 IF c%(c3%,c4%)=n% GOTO 2850 ELSE 2860 
2850 vr%=vr%+1:G0T0 2800 
2860 IF c%{c3%,c4%)=q% GOTO 2820 ELSE 2870 
2870 IF vr%>0 THEN RETURN 
2880 GOTO 2820 

2890 DATA 1,0.30,1,20.10,10,20,1.30,1.1,1.1,3 
2900 DATA 3,3,3,1,1,0,1,20,3.5.5.5,5.3.20.-1.1.10.3.5 
2910 DATA 0.0.5.3.10.-1.0.10.3,5.0.0.5.3.10.-1 

2920 DATA -1.20.3.5.5.5.5.3.20.0.-1.1.1.3.3.3.3.1.1.1.-1.30.1.20.10.10.20.1.30 
2930 DATA 263.100.263.120.270.130.255.130.255.130.255.140.255.140.270.140 
2940 DATA 270.140.270.150.270.150.255.150.255.160.270.160.270.160.270.180 
2950 DATA 270.180.255.180.270.170.255.170.270,190.270.210.270.200.255.200 
2960 DATA 255.200,255.210.255.220.270.220.270.220.270.230.270.230,255.230 
2970 DATA 255.230.255.240.255.240.270.240.255.250.270.250.270.250.270.260 
2980 DATA 270.260.255.260.255.250.255.270.270.280.270.300.270.300.255.300 
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2990 DATA 255,310,255,330.255,330,270,330.270,330,270,310,270^10,255,310 
3000 DATA 255,320,270,320 

3010 DATA 310,355,310,375,350,355,335,355,335.355,335,365,335,365,350,365 
3020 DATA 350,365,350,375,350,375,335,375,365,355,380,355.380,355,380,375 
3030 DATA 380,375,365.375.380.365.365.365.410.355.410,375,410,365,395,365 
3040 DATA 395,365,395,375,425,355,440,355/440,355,4«),365.440.365.425.365 
3050 DATA 425,365,425,375,425,375,4«),375,465,375,455,355.455,355,470,355 
3060 DATA 470,355,470,365,470,365,455,365,485,375,500,375,500,375,500,355 
3070 DATA 515,375.515.355.515.355.530.355.530.355.530,375.530,375,515.375 
3080 DATA 515,365,530,365 



Guante bianco 

L16vese las joyas del seflor conde. Muchos obstdculos con los que tropezar, luces que en- 
cender, y cuidado con el perro. Para un jugador contra el ordenador. Teclado o joystick. 

10 'GUANTE BLANCO, por David Radisic 

20 'copyright (c) AMSOFT 1985 

30' 

40 IVIODE 0:INK 0,0:BORDER 0:INK 1,26:INK 2,15:INK 3.25 

50 INK 4.14:INK 5.24.12:INK 6.0:INK 7.0:INK 8.0:PAPER #1.7 

60 retardo=200 

70 DIM objx(5.20).objy(5.20),joyax(5,20).joyay(5.20) 

80 GOSUB 380 

90 GOSUB 720 

100 pausa=200:GOSUB 340 

110 IF joyas=0 THEN GOSUB 980 

120 PEN 4 

130 FOR i=10 TO 12 

140 LOCATE 15,i:PRINT'B0TIN"; 

150 NEXT 

160 PAPER 0:CLS#2:PAPER 8 

170 GOSUB 1180 

180 GOSUB 1240 

190 GOSUB 1380 

200 GOSUB 1520 

210 IF rm=0 THEN GOSUB 1910 

220 IF muerto=0 THEN 160 

230 pausa=100:GOSUB 340 

240 PAPER 0:CLS:PEN 1 
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250 LOCATE 4.3:PRINT'Quiere jugai"; 

260 LOCATE 5,5:PRINT'otra vez7'; 

270 PEN 5:LOCATE 7,7:PRINTS/N"; 

280 i$=UPPER$(INKEY$):IF i$<>"S:' AND i$<>"N" THEN 280 

290 IF i$="N" THEN MODE 2:PEN 1:STOP 

300 RUN 

310 IF perro=l THEN RETURN 

320 perro=1:perrox=mmx(rm):perroy=miny(rm) 

330 RETURN 

340 FOR bucle=1 TO pausa 

350 FRAME 

380 NEXT 

370 RETURN 

380 rm=1:xp=6:yp=4:hombre$=CHR$(224):perro=0:robado=0 

390 SYMBOL 240,8,8,8,8,8,8,8,8 

400 SYMBOL 241,0,0,0,0,255,0,0,0 

410 SYMBOL 242,0,0.0,0,15,8,8,8 

420 SYMBOL 243,0,0,0,0,248,8,8,8 

430 SYMBOL 244,8,8,8,8,248,0,0,0 

440 SYMBOL 245,8,8,8,8,15,0,0,0 

450 SYMBOL 246,8,12,13,14,12,12,8,8 

460 SYMBOL 247,8,12.12,14,13,12,8,8 

470 SYMBOL 248,8,24,88.56.24,24,8.8 

480 SYMBOL 249.8.24.24,56,88,24,8,8 

490 SYMBOL 250,0,0,255.129.129,129,255,0 

500 SYMBOL 251,28,20,20.20.20.20.20.28 

510 SYMBOL 252,0.0.256.255.255.255.255.0 

520 SYMBOL 253.28.28.28,28,28,28,28,28 

530 SYMBOL 255,195,166,60,126.90,60,36,24 

540 ENT 1,12.-4,1 

550 ENT -2.=1000.60.=3000.40 

560 ENV 1,10,1.5,2.-4,1,2,-1.20 

570vent$(1)=STRING$(2,250):vent$(2)=CHR$(251)+CHR$(8)+CHR$(10)+CHR$( 

251)+CHR$(8)+CHR$(10)+CHR$(251) 
580 puerta$(1)=STRiNG$(2,252):puerta$(2)=CHR$(253)+CHR$(8)+CHR$(10)+C H 

R$(253)+CHR$(8)+CHR$(10)+CHR$(253) 
590conm$(1,0)=CHR$(246):conm$(1,1)=CHR$(247) 
600conm$(2,0)=CHR$(248):conm$(2.1)=CHR$(249) 
610joya$=CHR$(144):obj$=CHR$(233):perro$=CHR$(255) 
620gol$=CHR$(246)+CHR$(248)+CHR$(247)+CHR$(249)+CHR$(252)+CHR$(253 

)+ CHR$(250)+CHR$(251)+joya$+obj$+perro$ 

630 RESTORE 3020 
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640 FOR i=1 TO 5 

650 READ minx(i),miny(i),maxx(i),maxy(i) 
660 READ dir(i,1),dir(i,2),dir(i,3),dir(i,4) 
670 NEXT 

680 WINDOW #1,minx(rm)-1,maxx(rm)+1,miny(rm)-1.maxy(rm)+1 

690 WINDOW #2,1.14,1,25 

700 CLS#1:PAPER #0,8 

710 RETURN 

720 ORIGIN 50,50 

730 INK 6,24,12 

740 RESTORE 3070 

750 GOSUB 1290 

760 LOCATE 1,20 

770 PEN5:PRINT'>"; 

780 PEN 1:PRINT'Puertas y ventanas"; 

790 PEN 5:PRINT'<";:PEN 1 

800 LOCATE 5,21: PRINT' para escapai"; 

810 LOCATE 9,1:PRINT'PASF':L0CATE 10,2:PRINT CHR${213)CHR$(212); 

820 pausa=300:GOSUB 340 

830 CLS:LOCATE 1,3:INK 6,0 

840 PEN 1:PRINT hombre$;" Usted, el ladron":PRINT 

850 PEN 2:PRINT LEFT$(pueita$(1).1);LEFT$(pueita$(2),1);"Puertas":PRINT 

860 PEN 3:PRINT conm${1,0);conm$(2,0),-" Luces apagadas": PRINT 

870 PEN 3:PRINT conm$(1,1);conm$(2,1):" Luces encendidas":PRINT 

880 PEN 4:PRINT LEFT$(vent$(1),1);LEFT$(vent$(2),1),-" Ventana^':PRINT 

890 PEN 5:PRINT joya$;" Piedras preciosas": PRINT 

900 PAPER 1:PEN OiPRINT obj$,-" Obstacuios ":PEN 1:PAPER 0:PRINT 

910 PEN 1:PRINT perro$,-" El perro" 

920 PEN 5:PRINT:PRINT:PRINT 

930 PRINT' Utilice joystick" iPRINT'o teclas de cursoi" 

940 aux=REMAIN(1) 

950 AFTER retardo*4,1 GOSUB 340 

960 RETURN 

970' 

980 'Generar joyas y obstacuios 

990' 

1000 FOR hab=1 TO 5 

1010ioyar=INT{RND*8)+2:objr=INT(RND*10)+5 

1020 minx=minx(hab):miny=miny(hab):maxx=maxx(hab):maxy=maxy(hab) 

1030 FOR i=1 TO joyar 

1040 x=INT{RND*|maxx-minx+1))+minx 

1050 y=INT(RND*(maxy-miny+1))+miny 
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1060 joyax{hab,i)=x:joyay(hab,i)=y 

1070 joyas=joyas+1 

1080 NEXT i 

1090 FOR i=1 TO objr 

1100 x=INT(RND*(maxx-minx+1))+minx 

1110 y=INT(RND*(maxy-miny+1))+miny 

1120 objx(hab,i)=x:objy(hab,i)=y 

1130 NEXT 1 

1140 joyas(hab)=joyar:obj(hab)=objr 

1150 NEXT hab 

1160 CLS 

1170 RETURN 

1180 ON rm GOTO 1190,1200.1210,1220.1230 

1190 RESTORE 2680:RETURN 

1200 RESTORE 2750:RETURN 

1210 RESTORE 2820:RETURN 

1220 RESTORE 2890:RETURN 

1230 RESTORE 2970:RETURN 

1240 PAPER 0:READ rm$:PAPER 8 

1250 WINDOW #1.ininx(rm)-1.inaxx(rin)+1.miny(rm)-1.maxy(rm)+1:CLS#1 

1260 PEN 1:LOCATE 1.1:PRINT SPACE$(19); 

1270 LOCATE 1,1:PRINT'Habitacion: ";rm$; 

1280 IF luces(rm) THEN INK 7.10:INK 8,10 ELSE INK 7.0:INK 8.0 

1290 READ a$:IF a$="FIN" THEN RETURN 

1300 IF a$="D" THEN 2190 

1310 IF a$="W' THEN 2270 

1320 IF a$="L" THEN GRAPHICS PEN 1:GOTO 2350 

1330 IF a$= "S" THEN 2430 

1340 IF a$="F' THEN GRAPHICS PEN 6:G0T0 2350 

1350 PRINT' ***ERROR ***"; 

1360 STOP 

1370' 

1380 'Dibujar joyas/objetos 

1390' 

1400 PEN 6 

1410 FOR 1=1 TO obj(rm) 

1420 LOCATE objx(rm,l).objy{rm.i) 

1430 PRINT obj$; 

1440 NEXT 

1450 PEN 5 

1460 FOR i=1 TO joyas(rm) 

1470 LOCATE joyax{rm.i).joyay(rm.i) 
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1480 PRINT joya$; 

1490 NEXT 

1500 PEN 1:L0CATE xp.ypiPRINT hombre$; 

1510 RETURN 

1S20 xf=0:yf=0:PEN 1 

1530 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN yf=-1 

1540 IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN yf=1 

1550 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN xf=-1 

1560 IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN xf=1 

1570 IF xf =0 AND yf=0 THEN 1640 

1580 LOCATE xp+xf,yp+yf:ht$=:COPYCHR$(#0) 

1590 IF ASC(ht$)>239 AND ASC(ht$)<246 THEN 1520 

1600 IF ht$<>" " THEN 1670 

1610 LOCATE xp,yp:PRINT' "; 

1K0 PAPER 0:LOCATE 4.24:PRINT' ";:PAPER 8 

1630 xp=xp+xf:yp=yp+yf 

1640 LOCATE xp.yp.PRINT hombre$; 

1K0 IF perro>0 THEN perro=perro MOD 2+1:IF perro=2 THEN 2560 

1660 GOTO 1520 

1670gol=INSTR(gol$,ht$):car=ASC(MiD$(gol$,gol,1)) 

1680 ON goi GOTO 1700.1700.1700,1700,1760.1760.1860.1910,1980,2100,2660 

1690 GOTO 1610 

1700 IF gol>2 AND gol<5 THEN car=car-1 

1710 IF gol<3 THEN car=car+1 

1720 PEN 3:L0CATE xp+xf.yp+yf: PRINT CHR$(car); 

1730 luces(rm)=luces(rnn) XOR 1 

1740 IF luces(rm) THEN INK 7,10:INK 8.10 ELSE INK 7.0:INK 8.0 

1750 GOTO 1520 

1760 IF xfoO AND yfoO THEN 1640 

1770 IF xf<0 THEN dlir-4 ELSE IF xf>0 THEN clir=3 

1780 IF yf<0 THEN djr=1 ELSE IF yf>0 THEN d!r=2 

1790 IF dir{rm,dir)=-1 THEN 1640 ELSE rm=dir(rni,dir) 

1800 IF perro>0 THEN GOSUB 310 

1810 IF dir=1 THEN xp=;6:yp=maxy(rm) 

1820 IF dlr=2 THEN xp=6:yp=miny(rm) 

1830 IF dir=3 THEN xp=minx(rm):yp=13 

1840 IF dlr=4 THEN xp=maxx(rm):yp=13 

1850 RETURN 

1860 IF xp>5 AND xp<8 THEN 1890 

1870 IF xp<6 THEN dir=4 ELSE dir=3 

1880 GOTO 1790 

1890 IF yp>13 THEN dlr=2 ELSE dir=1 
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1900 GOTO 1790 

1910 PAPER 0:CLS:PEN 1 

1920 LOCATE 3,3: PRINT' Usted ha escapado"; 

1930 LOCATE 8,5:PRINTcon"; 

1940 IF joyas=robado THEN LOCATE 8,7:PRINT'todas las";ELSE LOCATE 8,7 

1950 PRINT USING " #r ;robado; 

1960 PEN 5: LOCATE 8,9:PRINTjoyas"; 

1970 muerto=1:RETURN 

1980 LOCATE xp,yp:PRINT' ";:xp=xp+xf:yp=yp+yf 

1990 1=0 

2000 i=i+1 

2010 IF i>joyas(rm) THEN 1520 

2020 IF joyax{rm,i)<>xp OR joyay(rm,l)<>yp THEN 2000 

2030 IF i=joyas(rm) THEN 2060 

2040 joyax(rm,i)=Joyax(rm,joyas(rm)) 

2050 joyay(rm,i)=joyay(rm,joyas(rm)) 

2060 joyas(rm)=joyas(rm)-1:robado=robado+1 

2070 MOVE 400,150+(robado*2),1,1:DRAW 555,150+(robado*2),1,1 

2080 SOUND 129,248,10,12,0,1 

2090 GOTO 1990 

2100 ruido=INT(RND*15) 

2110 SOUND 1,3000,10,ruido,0,0,10 

2120 PAPER 0:LOCATE 4,24:PRINT' Cheque ";:PAPER 8 

2130 IF ru!do<10 OR retardo=50 THEN 1640 

2140 retardo=retardo-50 

2150 aux=REMAIN(1) 

2160 AFTER retardo*4,1 GOSUB 310 

2170 GOTO 1640 

2180' 

2190 'Dibujar puertas 

2200' 

2210 READ no,pu$ 

2220 IF pu$="V" THEN pu=2 ELSE pu=1 

2230 PEN 2 

2240 pic$=puerta$(pu):GOSUB 2510 

2:^0 GOTO 1290 

2260' 

2270 'Dibujar ventanas 

2280' 

2290 READ no,ve$ 

^00 IF ve$="V' THEN ve=2 ELSE ve=1 

^10 PEN 4 
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2320 pic$=vent$(ve):GOSUB 2510 

2330 GOTO 1290 

2340' 

2350 'Dibujar rectas 

2360' 

2370 READ x1.y1.x2,y2 

2380 MOVE x1,y1„0 

2390 DRAW x1,y2„0:DRAW x2,y2„0 

2400 DRAW x2,y1„0:DRAW x1.y1„0 

2410 GOTO 1290 

2420' 

2430 'Dibujar interruptores 

2440' 

2450 READ no,co$ 

2460 IF co$="L" THEN co=1 ELSE co=2 

2470 PEN 3 

2480 pic$=conm$(co,0):GOSUB 2510 

2490 GOTO 1290 

%00' 

2510 'Escribir car 

2520' 

2530 READ x.y:LOCATE x,y:PRINT pic$; 

2540 no=:no-1:IF no>0 THEN 2530 

2550 RETURN 

2560 PEN 1:L0CATE perrox,perroy:PRINT' "; 

2570 hombre$=CHR$(225) 

2580 IF (perrox=xp AND perroy=yp) OR (perrox=xp+xf AND perroy=yp+yf) 

THEN 2660 
2590 IF perrox<xp THEN perrox=perrox+1 
2600 IF perrox>xp THEN perrox=perrox-1 
2610 IF perroy<yp THEN perroy=perroy+1 
2620 IF perroy>yp THEN perroy=perroy-1 
2630 LOCATE perrox,perroy:PRINT perro$; 
2640 SOUND 1,0,RND*40,10,1,2,31 
2650 GOTO 1520 
2660 PRINT'MORDIDO'; 
2670 muerto=1:RETURN 
2680 DATA Pasillo 
2690 DATA L,64,308,226,4 
2700 DATA D.2,H.6,3,6,22 
2710 DATA D,2,V.4,12,9,11 
2720 DATA S,1,LA11 
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2730 DATA S.1.R,9,14 
2740 DATA FIN 
2750 DATA Sala 
2760 DATA 1,2,308,258,4 
2770 DATA D,1,V,10,12 
2780 DATA W,1,H,6,3 
2790 DATA W,1,V,2,12 
2800 DATA S,2,R,10,11, 10,15 
2810 DATA FIN 
2820 DATA Comedor 
2830 DATA L,2,308,258,4 
2840 DATA W,1,V,10,12 
2850 DATA W,1,H,6,3 
2860 DATA D,1,V,2,12 
2870 DATA S,2,L,2,11,2,15 
2880 DATA FIN 
2890 DATA Cocina 
2900 DATA 1,2,276,384,4 
2910 DATA D,2,H,6,5,6,22 
2920 DATA W,1,H,10,22 
2930 DATA W,1,V,14,13 
2940 DATA D,1,V,2,13 
2950 DATA S,1,L,2,16 
2960 DATA FIN 
2970 DATA Despensa 
2980 DATA L,2,276,256,4 
2990 DATA D,1,V,10,12 
3000 DATA S,1,R,10,11 
3010 DATA FIN 
3020 DATA 5,4,8,21,0,4,3,2 
3030 DATA 3,4.9,21,-1,-1,1,-1 
3040 DATA 3,4,9,21.-1.-1,-1,1 
3050 DATA 3,6,13,21,1,0,-1,5 
3060 DATA 3,6,9.21.-1,-1,4,-1 
3070 DATA 1,64,308,480,100 
3080 DATA F.250.98.294.102 
3090 DATA F.250.306.294.310 
3100 DATA F.390.94.430.106 
3110 DATA F.390.302.430.314 
3120 DATA F.474.240,488.270 
3130 DATA F.474.124,488.154 
3140 DATA F.58.240.72.270 
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3150 DATA L.226,308,322,180 
3160 DATA L,160,180,480,100 
3170 DATA L.64,180,160,100 
3180 DATA RN 



A3/28 Que usted lo disfrute 



Apendice 4 

Indice 



(Las referencias corresponden a los numeros de capitiilo y de pdgina; por ejemplo, 1.42 
significa capitulo 1 pagina 42.) 

A lA 5.9 

ABS 3.3 

Acceso aleatorio 5.14 7.4 

AFTER 3.4 8.30 

Altavoces externos 1.8 1.79 

Ampliacidn, zocalo de 1.8 

Amplificador externo 1.8 

AMSDOS 1.87 5.1 5.9 5.29 

AMSDOS, mensajes de error 5.12 

AND 3.5 8.18 

Animaci6n 8.55 

ASC 3.5 

ASCII 6.8 6.22 

ASCII, caracteres 6.9 8.15 

ATN 3.6 

AUTO 2.11 3.6 

AUX 5.26 

B !B 5.9 

IBANKFIND 1.96 7.6 

IBANKOPEN 1.95 7.4 

IBANKREAD 1.96 7.5 

IBANKWRITE 1.95 7.5 

BASIC 1.26 3.1 6.34 8.7 

BIN$ 3.6 

Bit 8.9 

BORDER 1.59 3.7 6.6 



Indice A4/1 



<-BORR, tecla. 1.17 

Borrado de los canales de sonido 8.39 

BREAK 3.7 

Brillo, mando 1.4 

Byte 8.9 

CALL 3.8 

Caracteres 1.65 6.8 6.46 6.53 6.55 8.14 

Caracteres definibles por el usuario 3.91 6.50 8.21 

Caracteres expansibles 3.43 6.23 

Carga de programas 1 .22 

Cartucho 1.3 1.22 

CAT 1.50 1.53 3.8 

CHAIN 3.9 

CHAIN MERGE 3.10 

CHR$ 1.65 3.11 8.15 

CINT 3.12 

CLEAR 3.12 

CLEAR INPUT 3.12 

CLG 3.13 

CLOSEIN 2.11 3.13 

CLOSEOUT 2.10 3.13 

CLR, tecla 1.19 

CLS 1.26 3.14 6.4 

C6digo de maquina 6.7 

Cbdigos de control 5.16 6.2 6.3 6.52 8.52 

Colas de sonido 3.60 3.88 6.8 8.44 

Colores 1.58 1.62 5.22 

Colores parpadeantes 1 .62 3.86 

CON 5.26 

Conexion de una clavija de red 1.1 

Conexidn del ordenador 1.2 

Conexion de perifericos 1.6 6.40-44 

Configuraci6n de programas/paquetes 4.6-8 

CONT 3.14 

Contraste, mando 1.4 

COPIA, tecla 1.33 

Copia de discos 1 .87 

Copia de ficheros 1 .56 5.11 

Copias de seguridad 4.2 

COPYCHR$ 3.15 

COS 3.15 



A4/2 



indice 



CP/M 5.14 

ICPM 1.45 1.88 5.9 

CREAL 3.16 

CURSOR 3.16 6.3 

Cursor de copia, metodo 1.33 

Cursor, teclas del 1.16 

D DATA 3.17 6.29 8.31 

DATE 5.29 

DECS 3.17 

DEF FN 3.18 6.31 

DEFINT 3.18 

DEFREAL 3.19 

DEFSTR 3.19 

DEG 3.20 

DELETE 3.20 

DERR 3.21 6.33 6.34 

DEVICE 5.25 

DI 3.21 

DIM 2.3 3.22 6.30 

DIR (CP/M) 1.46 5.18 5.27 

IDIR 5.9 

DIRS 5.18 

DIRSYS 5.18 

DISCKIT 1.46 1.87 5.21 

Discos 1.12 1.22 1.44 1.87 4.1 

Discos, organizacion 6.47 

Discos, segunda unidad 1.8 1.46 1.49 5.4 6.44 

Diseflador de pantallas, programa 8.58 

DRAW 1.69 3.23 

DRAWR 3.24 

IDRIVE 5.10 

E Edicion de programas 1 .32 

EDIT 1.32 3.24 

EI 3.25 8.31 

EJECT, boton 1.10 

ELSE 1.34 3.25 

Emulador de consola 4.5 6.51 

Encendido 1-4 

END 3.25 

ENT 1.84 3.25 8.42 



Indice A4/3 



Entradas y salidas 6.40 6.51 

ENV 1.82 3.27 8.39 

Envolvente de tono 1.81 3.25 8.42 

Envolvente de volumen 1.81 3.27 8.42 

EOF 3.29 5.8 6.31 

EOF (CP/M) 5.26 

ERA 5.19 

lERA 5.10 

ERASE 3.30 

ERASE (CP/M) 5.19 5.27 

ERL 3.30 

ERR 3.30 6.33 

ERROR 3.31 

ESC, tecla 1.20 3.57 

Escritura transparente 8.51 

Estereofonla 1.8 1.79 

EVERY 3.31 

EXP 3.32 

EXPANSION, z6calo 6.43 

Fecha y hora en CP/M Plus 5.29 

Ficheros ASCII 1.55 3.81 5.4 5.11 6.31 

Ficheros de BASIC 1.55 1.56 3.81 

Ficheros binarios 1 .55 3.82 

Ficheros protegidos 1 .55 3.81 , 

Ficheros de «s61o Iectura» 5.28 6.33 

FIJA MAYS, tecla 1.18 

FILL 1.73 3.32 8.49 

FIX 3.33 

FN 3.33 

FOR 1.35 3.33 6.29 6.31 8.16 

Formatos de escritura 8.22 

Formatos de los discos 1 .44 6.47 6.48 

comercial 1 .47 

de datos 1.47 6.48 

de sistema 1.47 6.48 

FRAME 1.67 3.34 

FRE 3.34 



A4/4 Indice 



IGAME 1.5 

Gestor de bancos 1.94 7.1 8.65 

GOSUB 1.36 3.35 6.29 

GOTO 1.28 3.35 

Grabacion de variables 2.9 3.103 5.6 

Grdficos 1.57 1.65 8.49 8.58 

GRAPHICS PAPER 3.35 8.50 

GRAPHICS PEN 3.36 8.49 

HEX$ 3.36 

HIMEM 3.37 6.50 

IF 1.34 3.37 

Impresi6n, formato 3.70 

Impresoras 1.7 5.23 6.44 6.45 

INK 1.60 3.38 6.6 

INKEY 3.39 6.46 

INKEY$ 2.13 3.40 6.46 

INP 3.40 

INPUT 1.30 2.3 3.41 6.30 

Inserci6n de discos 1.12 

Instalacion 1.2 

INSTR 2.5 3.42 

INT - 3.42 

Interfaz serie 5.25 8.3 

Interrupciones 6.7 8.30 

INTRO, tecla 1.17 

JOY 3.43 6.46 

Joysticks 1.6 1.7 6.24 6.46 

JOYSTICK, z6calo 1-6 6.41 

KEY 3.43 6.23 

KEY DEF 3.44 6.23 

KEYS.CCP 4.3 5.23 

KEYS.WP 5.23 

LANGUAGE 4.3 5.21 6.56 

LEFTS 3.45 

LEN 2.9 3.45 

LET 3.46 



fndice A4/5 



LINE INPUT 3.46 

Lineas discontinuas 3.50 8.50 

LIST 1.28 1.67 3.47 

LOAD 1.51 3.47 

LOCATE 1.65 3.48 6.6 

LOG 3.49 

LOGIO 3.49 

Logica 3.5 3.56 3.63 3.103 8.18 

LST 5.26 

LOWERS 3.49 

M Magnetdfono 1.9 1.23 

MASK 3.50 8.49 

Matrices 3.23 6.30 

MAX 3.50 

MAYS, teclas 1.17 

Memoria 1.92 6.49 7.1 8.58 

MEMORY 3.51 6.29 6.50 

Mensajes de error 6.28 

Mensajes de error (AMSDOS) 5.12 6.33 

Menii 2.6 3.59 3.60 

MERGE 3.51 

MID$ 3.52 3.53 

MIN 3.53 

MOD 1.40 3.53 

MODE 1.57 3.54 6.3 

Modos de tinta 6.6 8.53 

Monitor 1.3 

MONITOR, zocalo 1.3 6.41 

MOVE 1.70 3.54 

MOVER 3.55 

N NEW 3.55 

NEXT 1.35 3.56 6.28 6.31 8.16 

NOT 3.56 8.20 

Notas musicales 6.25 

Numeros aleatorios 3.74 

Niimeros binarios 8.9 

Numeros de los errores 6.28 

Numeros hexadecimales 8.11 



A4/6 Indice 



O ON BREAK CONT 3.57 

ON BREAK GOSUB 3.57 

ON BREAK STOP 3.58 

ON ERROR GOTO 3.58 6.31 6.34 

ON GOSUB 2.6 3.59 

ON GOTO 3.59 

ON SQ GOSUB 3.60 6.8 8.45 

OPENIN 2.11 3.61 6.31 6.32 

OPENOUT 2.10 3.62 6.32 

Operaciones aritmeticas 1.38 6.28 

Operadores 1 .38 8.18 

OR 3.63 8.18 

(3rdenes externas 1.87 6.32 

ORIGIN 1.72 3.64 

OUT 3.64 

P Palabras clave 1.26 5.28 

PALETTE 5.22 

PAPER 1.62 3.65 6.4 

PEEK 3.65 

PEN 1.59 3.66 6.4 

Perifericos 1.6 

PI 3.66 

Piloto (de la unidad de disco) 1.15 

PIP 4.4 5.26 

Plantillas 6.36-39 

PLOT 1.68 3.66 

PLOTR 3.67 

POKE 3.68 

POS 3.68 

Potenciaci6n 1.41 

POWER, interruptor 1.4 

PRINT 1.27 3.69 8.22 

PRINT SPC 3.70 8.23 

PRINT TAB 3.70 8.23 

PRINT USING 3.70 8.24 

PRINTER, zocalo 1.7 6.44 

PRN 5.26 

PROFILE 4.3 5.15 

Programas Have en mano 4.5 4.6 

Protecci6n contra escritura 1.11 1.13 



Indice A4/7 



R RAD 3.73 

Raiz cuadrada 1.40 3.89 

Raiz cubica 1 .41 

RAM 1.92 7.4 

RANDOMIZE 3.74 

READ 3.74 6.29 6.30 8.31 

Reinicializaci6n del ordenador 1 .30 1.31 

RELEASE 3.75 8.44 

REM 1.36 2.2 3.75 

REMAIN 3.76 8.31 

REN 5.19 

RENAME 5.19 5.27 

IREN 5.10 

RENUM 2.8 3.76 

RESTORE 3.77 8.34 

RESUME 3.78 6.31 

RESUME NEXT 3.78 

Retenci6n de los canales de sonido 3.84 8.38 

RETURN 1.36 3.79 6.29 

RETURN, tecla 1.16 

RIGHTS 3.79 

RND 3.80 

ROM adicional 6.51 

ROUND 3.80 

RS232 5.25 

RSX 6.48 

RUN 1.23 1.24 1.27 1.51 3.81 

S SAVE 1.50 1.51 3.81 

ISCREENCOPY 1.92 7.4 8.65 

ISCREENSWAP 1.92 7.4 8.65 

SET 5.28 

SETDEF 5.30 

SETKEYS 5.23 

SETLST 5.23 

SETSIO 5.25 

SET24X80 5.24 

SON 3.83 

SHOW (CP/M) 5.30 

Simbolos comodin 5.5 

SIN 3.83 

Sincronizad6n de canales 8.38 



A4/8 fndice 



SIO 5.25 

Software 1.22 1.23 

SOUND 3.84 

SPACES 3.86 

SPC 3.86 8.23 

SPEED INK 3.86 

SPEED KEY 3.87 

SPEED WRITE 3.87 

SQ 3.88 8.46 

SQR 1.40 3.89 

STEP 1.35 3.89 

STEREO, z6calo 1.8 1.79 6.42 

STOP 3.89 

STR$ 3.90 

STRINGS 3.90 

SUBMIT 5.30 

SWAP 3.90 

SYMBOL 3.91 6.5 8.21 

SYMBOL AFTER 3.93 6.50 

Syntax error 1 .20 6.28 

TAB 3.93 8.23 

TAG 3.94 8.52 

TAGOFF 3.94 8.52 

TAN 3.95 

Teclado 1.16 5.23 6.22-24 6.47 

Teclas definibles por el usuario 3.44 6.23 

TEST 3.95 

TESTR 3.96 

THEN 1.34 3.96 

TIME 3.96 

TO 3.97 

TROFF 3.97 

TRON 3.97 

TYP 5.19 

TYPE (CP/M) 5.19 5.27 

UNT 3.98 

UPPERS 3.98 

USE 5.20 

USER 5.20 

lUSER 5.10 

USING 3.98 



fndice A4/9 



V VAL 3.98 

Variables 1.30 6.34 

Variables, grabacion de 2.9 

Variables literales 1.30 6.30 

Verificacidn de discos 1 .80 

Vibrato 8.42 

Volcado de pantalla 1.56 3.82 5.6 

Volumen, control 1.4 1.79 

VPOS 3.99 

W WAIT 3.99 

WEND 3.100 6.32 

WHILE 3.100 6.29 6.32 

WIDTH 3.101 

WINDOW 2.10 3.101 6.6 8.27 

WINDOW SWAP 3.102 8.28 

WRITE 2.9 3.102 8.24 

X XOR 3.103 8.20 

XPOS 3.104 

Y YPOS 3.104 

Z Z6calo de alimentacidn 1.3 

ZONE 3.104 8.23 



A4/10 fndice 




3-0 



-r\ 




616Z001-41038 464+/6128+ SPAIN 



l£ta 



